Displaying 2 results from an estimated 2 matches for "meansquares".
2003 Mar 11
0
Interrater and intrarater reliability
...me1$Subject)
Frame1$Rater<-factor(Frame1$Rater,labels=raterLabels)
Frame1$Repetation<-factor(Frame1$Repetation)
nn<-nsubj # this and following two commands: aliases for compatibility with Eliasziw et. al. notation
tt<-nrater
mm<-nmeas
aovFull<-aov(Result~Subject*Rater,data=Frame1)
meanSquares<-summary(aovFull)[[1]][,3]
for (raterAct in 1:tt)
{
raterActCat<-raterLabels[raterAct]
aovAct<-aov(Result~Subject,data=Frame1[Frame1$Rater==raterActCat,])
meanSquares<-c(meanSquares,summary(aovAct)[[1]][2,3])
}
names(meanSquares)<-c('MSS','MSR','MSSR','MSE...
2009 Jun 01
1
installing sn package
...labels=raterLabels)
> Frame1$Repetition<-factor(Frame1$Repetition)
> # this and following two commands:
> # aliases for compatibility with Eliasziw et. al. notation
> nn<-nsubj
> tt<-nrater
> mm<-nmeas
> aovFull<-aov(Result~Subject*Rater,data=Frame1)
> meanSquares<-summary(aovFull)[[1]][,3]
> for(raterAct in 1:tt) {
> raterActCat<-raterLabels[raterAct]
> aovAct<-aov(Result~Subject,data=Frame1[Frame1$Rater==raterActCat,])
> meanSquares<-c(meanSquares,summary(aovAct)[[1]][2,3])
> }
> names(meanSquares)<-
> c('MSS&...