Displaying 1 result from an estimated 1 matches for "totallcb".
Did you mean:
total_ch
2009 Sep 09
1
Stats help with calculating between and within subject variance and confidence intervals
...*within
> Vl<-G1^2*machine^2+H2^2*within^2+G12*within*machine
> betweenLCB<-(machine-within-sqrt(Vl))/J # Betwen LCB
> betweenUCB<-(machine-within+sqrt(Vu))/J # Between UCB
> #Total Confidence Intervals (Graybill-Wang Method)
> y<-(machine+(J-1)*within)/J
> totalLCB<-y-(sqrt(G1^2*machine^2+G2^2*(J-1)^2*within^2)/J) # Total LCB
> totalUCB<-y+(sqrt(H1^2*machine^2+H2^2*(J-1)^2*within^2)/J) # Total UCB
> result<-data.frame(Name=c("within", "between",
"total"),CV=c(withinCV,betweenCV,totalCV),LCB=c(sqrt(withinLCB)/g...