# NOT RUN {
library(metan)
# Two examples with only 5 resampling procedures
AMMI <- cv_ammi(data_ge,
resp = GY,
gen = GEN,
env = ENV,
rep = REP,
nboot = 5)
BLUP <- cv_blup(data_ge,
resp = GY,
gen = GEN,
env = ENV,
rep = REP,
nboot = 5)
bind_data <- bind_cv(AMMI, BLUP)
plot(bind_data)
print(bind_cv(AMMI, BLUP, bind = 'means'))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab