# NOT RUN {
library(metan)
model <- waasb(data_ge2,
env = ENV,
gen = GEN,
rep = REP,
resp = PH) %>%
wsmp()
p1 <- plot(model)
p2 <- plot(model, type = 2)
arrange_ggplot(p1, p2, ncol = 1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab