# NOT RUN {
library(agricolae)
data(sweetpotato)
model<-aov(yield~virus,data=sweetpotato)
comparison <- REGW.test(model,"virus",
main="Yield of sweetpotato. Dealt with different virus")
print(comparison)
REGW.test(model,"virus",alpha=0.05,console=TRUE,group=FALSE)
# }
Run the code above in your browser using DataLab