if (FALSE) {
library(inti)
fb <- inti::potato
mv <- yupana_mvr(data = fb
, last_factor = "geno"
, summary_by = c("geno", "treat")
, groups = "treat"
, variables = c("all")
#, variables = c("wue", "twue")
)
mv$plot[1]
mv$data
}
Run the code above in your browser using DataLab