"ES.w2" <- function(P){ pi<-apply(P,1,sum) pj<-apply(P,2,sum) P0<-pi%*%t(pj) sqrt(sum((P-P0)^2/P0)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.