# NOT RUN {
library(metan)
model <- performs_ammi(data_ge, ENV, GEN, REP, GY)
model2 <- waas(data_ge, ENV, GEN, REP, GY)
plot(model)
plot(model2,
which = c(3, 5),
ncol = 2,
labels = TRUE,
size.lab.out = 4)
# }
Run the code above in your browser using DataCamp Workspace