# NOT RUN {
library(metan)
# RCBD
rcbd <- gafem(data_g,
gen = GEN,
rep = REP,
resp = c(PH, ED, EL, CL, CW))
# Fitted values
get_model_data(rcbd)
# ALPHA-LATTICE DESIGN
alpha <- gafem(data_alpha,
gen = GEN,
rep = REP,
block = BLOCK,
resp = YIELD)
# Fitted values
get_model_data(alpha)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab