search for: nlevcat

Displaying 1 result from an estimated 1 matches for "nlevcat".

Did you mean: elevcat
2004 Apr 25
2
nonparametric multiple sample comparison
...attach(dat.multcomp) dat.multcomp$Rank <- rank(VarNum) attach(dat.multcomp) RankList <- aggregate(Rank,list(Rank=Rank),FUN=length) t <- length(RankList$Rank) st <- 0 for (i in 1:t) if (RankList[i,2]>1) st<-st+(RankList[i,2]^3-RankList[i,2]) LevCat <- levels(dat.multcomp$VarCat) NLevCat <- aggregate(VarCat,list(LevCat=VarCat),FUN=length) RLevCat <- aggregate(Rank,list(LevCat=VarCat),FUN=sum) MLevCat <- aggregate(Rank,list(LevCat=VarCat),FUN=mean) SampleSummary <- data.frame(LevCat,RLevCat[,2],NLevCat[,2],MLevCat[,2]) names(SampleSummary)<-c("Samples",&quot...