if (FALSE) {
library(inti)
fb <- potato
rsl <- yupana_analysis(data = fb
, last_factor = "bloque"
, response = "spad_83"
, model_factors = "geno * treat"
, comparison = c("geno", "treat")
)
}
Run the code above in your browser using DataLab