# NOT RUN {
library(metan)
mod <- waasb(data_ge,
env = ENV,
gen = GEN,
rep = REP,
resp = c(GY, HM))
FAI <- fai_blup(mod,
DI = c('max, max'),
UI = c('min, min'))
plot(FAI)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab