# \donttest{
library(metan)
#===============================================================#
# Example 1: Analyzing all numeric variables assuming genotypes #
# as random effects #
#===============================================================#
model <- gamem_met(data_ge,
env = ENV,
gen = GEN,
rep = REP,
resp = everything())
# Distribution of random effects (first variable)
plot(model, type = "re")
# Genetic parameters
get_model_data(model, "genpar")
#===============================================================#
# Example 2: Unbalanced trials #
# assuming all factors as random effects #
#===============================================================#
un_data <- data_ge %>%
remove_rows(1:3) %>%
droplevels()
model2 <- gamem_met(un_data,
env = ENV,
gen = GEN,
rep = REP,
random = "all",
resp = GY)
get_model_data(model2)
# }
Run the code above in your browser using DataLab