```{r,echo=FALSE}
opts_chunk$set(echo=FALSE,message=FALSE,results = "asis")
```
```{r}
#install.packages("repmis")
#install.packages("knitr")
library(pander)
library(repmis) #funçao para importar dados do dropbox
library(knitr)
dados <- source_DropboxData(file = "DQL.csv",key = "xtp04eaa1316kt2", sep = ";", header = TRUE)
dados <- transform(dados,VACA=factor(VACA),PERIODO=factor(PERIODO),TRAT=factor(TRAT))
modelo <- aov(LEITE~VACA+PERIODO+TRAT,data=dados)
#install.packages("multcomp")
#library(multcomp)
comp <- glht(modelo,linfct=mcp(TRAT="Tukey"))
nometrat <- colnames(summary(comp)$test$pvalues)
medias<- aggregate(LEITE~TRAT,data=dados,FUN=mean)
comparacao <-unname( cld(summary(comp))$mcletters$Letters)
tabela <- cbind(medias,comparacao)
colnames(tabela) <- c("TRATAMENTO","LEITE(Kg)","Tukey (<0,05)")
```
```{r echo=FALSE,results="asis"}
kable(tabela,format="markdown",digits=3,align="c")
```