https://github.com/cran/fields
Tip revision: 8eab500c3dad2103092ff68706417414fe53e16b authored by Doug Nychka on 22 September 2009, 20:23:49 UTC
version 6.01
version 6.01
Tip revision: 8eab500
stats.bplot.R
# fields, Tools for spatial data
# Copyright 2004-2007, Institute for Mathematics Applied Geosciences
# University Corporation for Atmospheric Research
# Licensed under the GPL -- www.gpl.org/licenses/gpl.html
"stats.bplot" <- function(x, by, style = "tukey",
outlier = TRUE) {
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 <- as.list(1:ncol)
names(out) <- names(x)
for (j in (1:ncol)) {
if (is.numeric(x[[j]])) {
out[[j]] <- describe.bplot(x[[j]], style = style,
outlier = outlier)
}
}
return(out)
}
if (is.matrix(x)) {
nc <- ncol(x)
out <- as.list(1:nc)
names(out) <- dimnames(x)[[2]]
for (j in (1:nc)) {
out[[j]] <- describe.bplot(x[, j], style = style,
outlier = outlier)
}
return(out)
}
}