#===============================================================================
#. Título: Análise de variância - ANOVA
#. Curso : CET076 - Metodologia e Estatística Experimental - Agronomia
# Autor : José Cláudio Faria
# Data  : 06/04/2022 10:55:25
#===============================================================================
# Objetivos
#===============================================================================
# Exemplificar, através do R, as análises e determinações numéricas do curso
# de MEE, referentes a análise de variância.
#===============================================================================

#. A leitura dos dados será feita via web
dad <- read.table('https://lec.pro.br/download/R/dados/dic_bal.txt',
                  head=TRUE,
                  stringsAsFactors=TRUE,
                  dec=',')

# Se não tiver acesso a internet, salvar o arquivo dic_bal.txt na máquina
#dad <- read.table('dados/dic_bal.txt',
#                  head=TRUE,
#                  dec=',')

str(dad)

#. ANOVA
av <- aov(pro ~ tra,
          data=dad)

summary(av)

#. Teste de Tukey
library(TukeyC)

tk <- TukeyC(av)
summary(tk)
plot(tk,
     disp='mm')