R/ES.w2.R

"ES.w2" <-
function(P){
pi<-apply(P,1,sum)
pj<-apply(P,2,sum)
P0<-pi%*%t(pj)
sqrt(sum((P-P0)^2/P0))
}
heliosdrm/pwr documentation built on Jan. 10, 2024, 9:10 p.m.