# NOT RUN {
library(metan)
FAI = data_ge2 %>%
waasb(ENV, GEN, REP, c(KW, NKE, PH, EH)) %>%
fai_blup(DI = c('max, max, max, min'),
UI = c('min, min, min, max'),
SI = 15)
plot(FAI)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab