https://github.com/cran/fields
Tip revision: 6769ffc81115fbf0bf7d9c566cf7ac81be0049dc authored by Doug Nychka on 25 July 2005, 00:00:00 UTC
version 3.04
version 3.04
Tip revision: 6769ffc
stats.r
"stats" <-
function (x, by)
{
if (!missing(by)) {
x <- cat.to.list(c(x), by)
}
if (!is.list(x) & !is.matrix(x))
x <- matrix(x, ncol = 1)
if (is.list(x)) {
ncol <- length(x)
out <- matrix(NA, ncol = ncol, nrow = length(describe()))
dimnames(out) <- list(describe(), names(x))
for (j in (1:ncol)) {
if (is.numeric(x[[j]])) {
out[, j] <- describe(x[[j]])
}
}
return(out)
}
if (is.matrix(x)) {
nc <- ncol(x)
out <- matrix(NA, ncol = nc, nrow = length(describe()))
dimnames(out) <- list(describe(), dimnames(x)[[2]])
for (j in (1:nc)) {
out[, j] <- describe(x[, j])
}
return(out)
}
}