https://github.com/cran/mvtBinaryEP
Raw File
Tip revision: bd876c4c9cc813f7c7b610832fa2793c250504d0 authored by Kunthel By on 25 January 2011, 00:00 UTC
version 1.0.1
Tip revision: bd876c4
rho.to.Y.R
`rho.to.Y` <-
function(mu, rootS, p, K=1, seed=seed)
{
    z <- ranMvnXch(rho=rootS, n=p, nRep=K, seed=seed)
    y <- ifelse( z <= qnorm(mu), 1, 0 )

    return(y)
}

back to top