dados<-read.table("e:/adalgisa/magna.txt", header=TRUE)
dados
TRAT<-as.factor(dados[,1])
REP<-as.factor(dados[,2])

require(laercio)

colin<-3
for(i in colin:ncol(dados))
{
 modelo<-aov(dados[,i]~TRAT+REP)
print(summary(modelo))

LTukey(modelo,"TRAT",conf.level=0.95)

LScottKnott(modelo,"TRAT",conf.level=0.95)
}