Content - d566b05437ad26e2db48b40087c2142181c5dcb2 - ddd521d/R/rho.to.rootS.R

visit type:

https://github.com/cran/mvtBinaryEP

20 January 2021, 09:41:50 UTC

Tip revision: e03023db232593f436717e7be27d1c52d9865644 authored by Kunthel By on 18 February 2009, 00:00:00 UTC
version 1.0

Tip revision: e03023d

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) )
}