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.rootS.R
`rho.to.rootS` <-
function(mu, p, rho, crit=1e-6, maxiter=20)
{
    r.xch <- toeplitz( c( 1, rep(rho,p-1) ) )
    return( R.to.rootS(mu=mu, R=r.xch, crit=crit, maxiter=maxiter) )
}

back to top