Content - 14d9b093310e10d878df15e609c1b583892efc06 - ee42e3e/R/exp.cov.S.r

exp.cov.S.r

"exp.cov.S" <-
function (x1, x2, theta = 1) 
{
    exp(-rdist(x1, x2)/theta)
}