if (FALSE) {
library(inti)
library(gsheet)
url <- paste0("https://docs.google.com/spreadsheets/d/"
, "15r7ZwcZZHbEgltlF6gSFvCTFA-CFzVBWwg3mFlRyKPs/edit#gid=172957346")
# browseURL(url)
fb <- gsheet2tbl(url)
smr <- yupana_analysis(data = fb
, last_factor = "bloque"
, response = "spad_83"
, model_factors = "block + geno*riego"
, comparison = c("geno", "riego")
)
gtab <- yupana_export(smr, type = "line", ylimits = c(0, 100, 2))
#> import
url <- paste0("https://docs.google.com/spreadsheets/d/"
, "15r7ZwcZZHbEgltlF6gSFvCTFA-CFzVBWwg3mFlRyKPs/edit#gid=1202800640")
# browseURL(url)
fb <- gsheet2tbl(url)
info <- yupana_import(fb)
etab <- yupana_export(info)
info2 <- yupana_import(etab)
etab2 <- yupana_export(info2)
}
Run the code above in your browser using DataLab