R/TukeyHSDs.r

Defines functions TukeyHSDs

Documented in TukeyHSDs

TukeyHSDs<-function(TukeyHSD.object){
# Patrick Giraudoux 19.1.2004
# Simplify the list of TuckeyHSD objet keeping
# only the significant differences.
res<-TukeyHSD.object
x<-TukeyHSD.object[[1]]
suppressWarnings(y<-!is.nan(sqrt(x[,2]*x[,3])))
res[[1]]<-x[y,,drop=FALSE]
res
}

Try the pgirmess package in your browser

Any scripts or data that you put into this service are public.

pgirmess documentation built on May 29, 2024, 4:26 a.m.