https://github.com/cran/fields
Tip revision: c71fb7f6ffa323303affebf0e35a0070faa9c24d authored by Doug Nychka on 10 May 2004, 00:00:00 UTC
version 1.7.2
version 1.7.2
Tip revision: c71fb7f
COR.r
"COR" <-
function (dat)
{
m <- ncol(dat)
M <- nrow(dat)
ntemp <- !is.na(dat)
ntemp <- t(ntemp) %*% (ntemp)
hold.mean <- apply(dat, 2, "mean", na.rm = TRUE)
temp <- (dat - matrix(c(hold.mean), ncol = m, byrow = TRUE,
nrow = M))
temp[is.na(temp)] <- 0
temp <- ifelse(ntemp > 1, t(temp) %*% (temp)/(ntemp - 1),
NA)
sd <- sqrt(diag(temp))
list(cor = t(t(temp)/sd)/sd, N = ntemp, sd = sd, mean = hold.mean)
}