# \donttest{
set.seed(123)
data <- data.frame(
GEN = rep(c("G1", "G2", "G3", "G4"), each = 12),
ENV = rep(c("E1", "E2", "E3"), each = 4, times = 4),
REP = rep(1:3, times = 16),
Y = c(rnorm(12, 50, 5), rnorm(12, 55, 5), rnorm(12, 60, 5), rnorm(12, 65, 5))
)
results <- perform_ammi_single_trait(data, "ENV", "GEN", "REP", "Y")
# }
Run the code above in your browser using DataLab