R/TDiM.R
In choplump: Permutation Test for Some Positive and Many Zero Responses

`TDiM` <-
function(S,R){ 
    N<-length(S)
    (1/sqrt(N-1))*(sum(S*R) - N*mean(S)*mean(R))/(sd(S)*sd(R))
}

Any scripts or data that you put into this service are public.

choplump documentation built on May 9, 2022, 5:08 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the choplump package in your browser