# NOT RUN {
library(agricolae)
data(sweetpotato)
model<-aov(yield~virus,data=sweetpotato)
comparison <- duncan.test(model,"virus",
main="Yield of sweetpotato. Dealt with different virus")
duncan.test(model,"virus",alpha=0.01,console=TRUE)
# version old duncan.test()
df<-df.residual(model)
MSerror<-deviance(model)/df
comparison <- with(sweetpotato,duncan.test(yield,virus,df,MSerror, group=TRUE))
print(comparison$groups)
# }
Run the code above in your browser using DataLab