Displaying 2 results from an estimated 2 matches for "lowint".
Did you mean:
lowing
2003 Mar 11
0
Interrater and intrarater reliability
...random^2*MSE^2
)
nu2<-
(nn-1)*(tt-1)*
(
nn*(1+(tt-1)*rhohat.inter.fixed)*MSSR+
nn*tt*(mm-1)*rhohat.inter.fixed*MSE
)^2/
(
(nn*(1+(tt-1)*rhohat.inter.fixed))^2*MSSR^2+
(nn-1)*(tt-1)*(nn*tt*(mm-1))*rhohat.inter.fixed^2*MSE^2
)
F1<-qf(1-alpha,df1=nn-1,df2=nu1)
F2<-qf(1-alpha,df1=nn-1,df2=nu2)
lowinter.random<-nn*(MSS-F1*MSSR)/
(
nn*MSS+F1*(tt*(MSR-MSSR)+
nn*(tt-1)*MSSR+nn*tt*(mm-1)*MSE)
)
lowinter.random<-min(c(lowinter.random,1))
lowinter.fixed<-nn*(MSS-F2*MSSR)/
(
nn*MSS+F2*
(nn*(tt-1)*MSSR+nn*tt*(mm-1)*MSE)
)
lowinter.fixed<-min(c(lowinter.fixed,1))
Fintra<-(1-rho0intra)*MSS/...
2009 Jun 01
1
installing sn package
...)*
> (nn*(1+(tt-1)*rhohat.inter.fixed)*MSSR+
> nn*tt*(mm-1)*rhohat.inter.fixed*MSE)^2/
> ((nn*(1+(tt-1)*rhohat.inter.fixed))^2*MSSR^2+
> (nn-1)*(tt-1)*(nn*tt*(mm-1))*rhohat.inter.fixed^2*MSE^2)
> F1<-qf(1-alpha,df1=nn-1,df2=nu1)
> F2<-qf(1-alpha,df1=nn-1,df2=nu2)
> lowinter.random<-nn*(MSS-F1*MSSR)/
> (nn*MSS+F1*(tt*(MSR-MSSR)+nn*(tt-1)*MSSR+nn*tt*(mm-1)*MSE))
> lowinter.random<-min(c(lowinter.random,1))
> lowinter.fixed<-nn*(MSS-F2*MSSR)/
> (nn*MSS+F2*(nn*(tt-1)*MSSR+nn*tt*(mm-1)*MSE))
> lowinter.fixed<-min(c(lowinter.fixed,1))
> ...