if (FALSE) {
library(inti)
fb <- potato#'
yrs <- yupana_analysis(data = fb
, response = "hi"
, model_factors = "geno*treat"
, comparison = c("geno", "treat")
)
yrs$meancomp %>%
plot_smr(type = "line"
, x = "geno"
, y = "hi"
, xlab = ""
, group = "treat"
, glab = "Tratamientos"
, ylimits = c(0, 1, 0.2)
, color = c("red", "black")
, gtext = c("Irrigado", "Sequia")
)
}
Run the code above in your browser using DataLab