One Way Anova (Completely Randomized Design)

Area.foliar <- read.delim("~/R/Area foliar.txt")
attach(Area.foliar)
library  (ExpDes.pt)
dic(trat, area1, quali = TRUE, mcomp="lsd", sigT = 0.05, sigF = 0.05)

## ------------------------------------------------------------------------
## Quadro da analise de variancia
## ------------------------------------------------------------------------
##            GL    SQ     QM       Fc   Pr>Fc
## Tratamento  3   855  284.9 0.051371 0.98406
## Residuo    16 88721 5545.1                 
## Total      19 89576                        
## ------------------------------------------------------------------------
## CV = 32.47 %
## 
## ------------------------------------------------------------------------
## Teste de normalidade dos residuos (Shapiro-Wilk)
## p-valor:  0.7415134 
## De acordo com o teste de Shapiro-Wilk a 5% de significancia, os residuos podem ser considerados normais.
## ------------------------------------------------------------------------
## 
## De acordo com o teste F, as medias nao podem ser consideradas diferentes.
##   Niveis  Medias
## 1      1 232.922
## 2      2 227.838
## 3      3 219.554
## 4      4 237.090
## ------------------------------------------------------------------------

dic(trat, area2, quali = TRUE,mcomp="lsd", sigT = 0.05, sigF = 0.05)

## ------------------------------------------------------------------------
## Quadro da analise de variancia
## ------------------------------------------------------------------------
##            GL     SQ    QM     Fc   Pr>Fc
## Tratamento  3 155764 51921 3.2407 0.04992
## Residuo    16 256342 16021               
## Total      19 412106                     
## ------------------------------------------------------------------------
## CV = 38.68 %
## 
## ------------------------------------------------------------------------
## Teste de normalidade dos residuos (Shapiro-Wilk)
## p-valor:  0.03363926 
## ATENCAO: a 5% de significancia, os residuos nao podem ser considerados normais!
## ------------------------------------------------------------------------
## 
## Teste t (LSD)
## ------------------------------------------------------------------------
## Grupos  Tratamentos  Medias
## a     4   479.472 
##  b    1   285.886 
##  b    2   280.072 
##  b    3   263.654 
## ------------------------------------------------------------------------