R/VarW.R

"VarW" <-
function(W, piXXY, piXYY, n1, n2)
return( 1/(n1*n2) * (W - (n1+n2-1)*W^2 + (n1-1)*piXXY + (n2-1)*piXYY) )

Try the equivalence package in your browser

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

equivalence documentation built on May 1, 2019, 9:15 p.m.