scheffe.test(y, trt, DFerror, MSerror, Fc, alpha = 0.05, group=TRUE, main = NULL)
HSD.test
, LSD.test
, SNK.test
,
bar.err
, bar.group
,duncan.test
library(agricolae)
data(sweetpotato)
model<-aov(yield~virus, data=sweetpotato)
comparison <- scheffe.test(model,"virus", group=TRUE,
main="Yield of sweetpotato
Dealt with different virus")
# Old version scheffe.test()
attach(sweetpotato)
df<-df.residual(model)
MSerror<-deviance(model)/df
Fc<-anova(model)["virus",4]
comparison <- scheffe.test(yield, virus, df, MSerror, Fc, group=TRUE,
main="Yield of sweetpotato. Dealt with different virus")
detach(sweetpotato)
Run the code above in your browser using DataLab