https://github.com/cran/mvtBinaryEP
Tip revision: bd876c4c9cc813f7c7b610832fa2793c250504d0 authored by Kunthel By on 25 January 2011, 00:00:00 UTC
version 1.0.1
version 1.0.1
Tip revision: bd876c4
rootS.to.Y.R
`rootS.to.Y` <-
function(mu, rootS, K=1, seed=seed)
{
z <- ranMVN2( nRep=K, rootS=rootS, seed=seed )
cuts <- matrix( rep(qnorm(mu), K), K, byrow=T)
y <- ifelse(z <= cuts, 1, 0)
return(y)
}
