if (FALSE) {
library(inti)
library(gsheet)
url <- paste0("https://docs.google.com/spreadsheets/d/"
, "15r7ZwcZZHbEgltlF6gSFvCTFA-CFzVBWwg3mFlRyKPs/"
, "edit#gid=172957346")
# browseURL(url)
fb <- gsheet2tbl(url)
mc <- mean_comparison(data = fb
, response = "spad_29"
, model_factors = "bloque* geno*treat"
, comparison = c("geno", "treat")
, test_comp = "SNK"
)
mc$comparison
mc$stat
}
Run the code above in your browser using DataLab