R/sortAnova.R

sortAnova<-
function(modele){
tableAnova<-Anova(modele)
if(ncol(tableAnova)==3){
return(tableAnova[order(tableAnova[,1]/tableAnova[,2],decreasing=TRUE),])
}
else{
nr<-nrow(tableAnova)
return(tableAnova[c(order(tableAnova[-nr,1]/tableAnova[-nr,2],decreasing=TRUE),nr),])
}
}

Try the RcmdrPlugin.pointG package in your browser

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

RcmdrPlugin.pointG documentation built on May 2, 2019, 3:26 p.m.