https://github.com/cran/mvtBinaryEP
Raw File
Tip revision: e03023db232593f436717e7be27d1c52d9865644 authored by Kunthel By on 18 February 2009, 00:00:00 UTC
version 1.0
Tip revision: e03023d
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