https://github.com/cran/fields
Tip revision: 2bda12315a515ba5d05053448a464d56f34ef2d9 authored by Doug Nychka on 13 January 2003, 16:33:19 UTC
version 1.4
version 1.4
Tip revision: 2bda123
bplot.xy.R
"bplot.xy" <-
function (x, y, N = 10, breaks = pretty(x, N,eps.correct=1), style = "tukey",
outlier = TRUE, plot = TRUE, xaxt = "s", ...)
{
out <- list()
NBIN <- length(breaks) - 1
centers <- (breaks[1:NBIN] + breaks[2:(NBIN + 1)])/2
obj <- as.list(1:NBIN)
names(obj) <- format(1:NBIN)
for (k in 1:NBIN) {
obj[[k]] <- describe.bplot(y[x < breaks[k + 1] & x >
breaks[k]], style = style, outlier = outlier)
}
if (plot) {
bplot.obj(obj, pos = centers, label.cex = 0, outlier = outlier,
, xaxt = xaxt, ...)
}
else {
return(list(centers = centers, breaks = breaks, bplot.obj = obj))
}
invisible()
}