R/VarU.R

"VarU" <-
function(U, q, n)
   return( (2*(n-2)*(q - U^2) + U*(1-U)) / choose(n,2) )

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.