#' ---
#' title: "Exercício"
#' author: 
#' date: "09/2023"
#' ---

#' Com o objetivo de comparar seis diferentes progênies de *Eucaliptus grandis* com sete anos (médias de 25 plantas por parcela) com relação a  altura, em m, um pesquisador instalou um experimento em blocos com quatro repetições.
#' Os dados são apresentados a seguir.

dados <- data.frame(
  Bloco = as.factor(rep(1:4, each = 6)),
  Progenie = as.factor(rep(c(
    "Pretoria", 637, 2093,
    2094, 9559, 9575
  ), times = 4)),
  altura = c(20.3,21.7,22.0,20.8,21.5,19.6,
             19.6,19.3,24.9,23.0,22.3,17.7,
             23.5,16.7,24.4,21.3,22.1,18.7,
             19.1,18.5,20.8,24.9,21.9,22.0)
)

#' Pede-se:
#' 
#' (a) Faça a análise descrita dos dados apresentando comentários
#' 
#' (b) Testar a hipótese de igualdade das médias das progênies ao nível de 5\% de significância. Apresentar as hipóteses e conclusões.
#' 
#' (c) Se necessário, comparar as médias das progênies pelo teste de Tukey ao nível de 5\% de significância. Apresentar as hipóteses e conclusões.