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()
attach(sweetpotato)
df<-df.residual(model)
MSerror<-deviance(model)/df
comparison <- duncan.test(yield,virus,df,MSerror, group=TRUE)
print(comparison$groups)
detach(sweetpotato)
Run the code above in your browser using DataLab