# NOT RUN {
library(metan)
# Genotypes as random effects
# Equal weights for response variable and stability
model <- waasb(data_ge,
env = ENV,
gen = GEN,
rep = REP,
resp = GY)
# Higher weight for response variable
model2 <- waasb(data_ge,
env = ENV,
gen = GEN,
rep = REP,
resp = GY,
wresp = 65)
# Environment as random effects analyzing more than one variable
# Smaller values of HM are better and higher
# Higher values of GY are better
# Larger weight for the GY (60%)
# Smaller weight for HM (40%)
model3 <- waasb(data_ge,
env = ENV,
gen = GEN,
rep = REP,
resp = c(GY, HM),
random = "env",
mresp = c(100, 0),
wresp = c(60, 40))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab