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
isd.to.y.R
`isd.to.y` <-
function(isd, nRep, crit=1e-6, maxiter=20, seed=NULL)
{
    mu <- isd$mu
    rho <- isd$rho
    rootS <- isd$rootS
    p <- isd$n

    if( !is.null(rootS) & !is.null(rho) )
    {
        if (rho >= 0) { return(rho.to.Y(mu=mu, rootS=rootS, p=p, K=nRep, seed=seed)) }
    }
    if ( !is.null(rootS) )
    {
        return(rootS.to.Y(mu=mu, rootS, K=nRep, seed=seed))
    }
    else
    {
        y <- NULL
        return(y)
    }
}

back to top