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
xch.R
`xch` <-
function(p,rho)
{
if (p <= 0) {stop('n must be at least 1')}
else if (p==1) {r = 1}
else if (p > 1)
{
c1 = rep(rho,p-1)
r = toeplitz(c(1,c1))
}
return(r)
}
