R/Rademacher.R

Defines functions Rademacher

Rademacher <-
function(n)
{
p <- 0.5
zmat <- rep(1,n);
u <- runif(n,0,1)
zmat[u > p] <- -1
return(zmat)
}

Try the vrtest package in your browser

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

vrtest documentation built on Aug. 31, 2023, 9:08 a.m.