# NOT RUN {
library(metan)
library(ggplot2)
waasby <- waasb(data_ge,
resp = GY,
gen = GEN,
env = ENV,
rep = REP)
waasby2 <- waas(data_ge,
resp = GY,
gen = GEN,
env = ENV,
rep = REP)
plot_waasby(waasby)
plot_waasby(waasby2) +
theme_gray() +
theme(legend.position = "bottom",
legend.background = element_blank(),
legend.title = element_blank(),
legend.direction = "horizontal")
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace