rm(list = ls())

#' ---
#' title: "Análise conjunta para grupos de experimentos casualizados em blocos - Exercício"
#' author: ""
#' date: "Dezembro de 2023"
#' header-includes: \usepackage{here}
#' ---


#' #Entrada dos dados (por favor, verifiquem)
library(dae)
dados <- fac.gen(list(
  Local = c("Pindorama", "Jau", "RibeiraoPreto", "SaoSimao"),
  Bloco = c("I", "II", "III", "IV"),
  Variedade = c("Agroceres", "Azteca", "Armour", "IAC-75", "IAC-115")
))
dados$y <- c(
  #Pindorama
  3.4,2.7,2.6,3.1,2.0,
  3.0,2.9,2.5,3.3,1.9,
  3.1,2.8,2.1,3.4,2.2,
  3.2,3.0,2.4,3.0,2.2,
  #Jau
  2.9,2.6,2.3,3.2,2.1,
  3.5,2.8,2.6,3.4,1.8,
  3.2,3.0,2.2,3.3,2.0,
  3.3,3.1,2.3,3.1,1.9,
  #RibeiraoPreto
  3.3,2.7,2.4,3.1,2.0,
  3.1,2.8,2.5,3.3,1.7,
  3.2,3.0,2.3,3.4,1.9,
  3.4,2.9,2.3,3.3,2.1,
  #SaoSimao
  3.0,2.8,2.1,3.2,2.1,
  3.0,2.9,2.3,3.4,1.8,
  3.1,3.0,2.0,3.1,2.2,
  3.2,2.9,2.4,3.3,1.9)
dados