new class name

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: st4gi
 Type: Package
 Title: Statistical tools for genetic improvement
-Version: 2.2.11
-Date: 2019-05-30
+Version: 2.2.12
+Date: 2019-06-28
 Author: Raul Eyzaguirre
 Maintainer: Raul Eyzaguirre <R.EYZAGUIRRE@CGIAR.ORG>
 Description: Statistical tools for the analysis of experimental data for crop

NAMESPACE

@@ -1,7 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
-S3method(plot,ammi)
-S3method(plot,tai)
+S3method(plot,st4gi_ammi)
+S3method(plot,st4gi_tai)
 export(aj.w)
 export(ammi)
 export(ammi.gxe)

R/ammi_gxe.R

@@ -110,7 +110,7 @@ ammi.gxe <- function(int.mean, trait.name = NULL, nrep = NULL, rdf = NULL,
                  Interaction_effects = int.eff, PC_values_genotypes = PC.geno,
                  PC_values_environments = PC.env, Contribution_PCs = tablaPC)
 
-  class(output) <- "ammi"
+  class(output) <- "st4gi_ammi"
   invisible(output)
 
 }

R/plot_ammi.R

@@ -28,9 +28,9 @@
 #' @importFrom graphics abline text
 #' @export
 
-plot.ammi <- function(x, bp.type = 2, bp1.type = c("effects", "means"),
-                      graph.type = c("base", "ggplot"),
-                      color = c("darkorange", "black", "gray"), ...) {
+plot.st4gi_ammi <- function(x, bp.type = 2, bp1.type = c("effects", "means"),
+                            graph.type = c("base", "ggplot"),
+                            color = c("darkorange", "black", "gray"), ...) {
 
   # match arguments
 

R/plot_tai.R

@@ -22,8 +22,8 @@
 #' @importFrom stats qf qt
 #' @export
 
-plot.tai <- function(x, conf = 0.95, graph.type = c("base", "ggplot"),
-                     color = c("darkorange", "black", "gray"), ...) {
+plot.st4gi_tai <- function(x, conf = 0.95, graph.type = c("base", "ggplot"),
+                           color = c("darkorange", "black", "gray"), ...) {
 
   # match arguments
 

R/tai.R

@@ -88,7 +88,7 @@ tai <- function(trait, geno, env, rep, dfr, maxp = 0.1) {
 
   output <- list(Trait = trait, Tai_values = cbind(alpha, lambda), ANOVA = at, lc = lc)
 
-  class(output) <- "tai"
+  class(output) <- "st4gi_tai"
   invisible(output)
 
 }