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))
}
skuma18/rpacakge documentation built on May 30, 2019, 3:04 a.m.