https://github.com/cran/fields
Tip revision: 6c8b30169bba182a68765ee3cb9b4e2ef7d38332 authored by Doug Nychka on 16 November 2011, 00:00:00 UTC
version 6.6.3
version 6.6.3
Tip revision: 6c8b301
draw.bplot.obj.r
# fields, Tools for spatial data
# Copyright 2004-2011, Institute for Mathematics Applied Geosciences
# University Corporation for Atmospheric Research
# Licensed under the GPL -- www.gpl.org/licenses/gpl.html
"draw.bplot.obj" <- function(obj, width, xpos, outlier = TRUE,
horizontal = FALSE, lwd = NA, col = NA) {
#
# fill in defaults if not specfied
if (missing(lwd))
lwd <- par()$lwd
if (missing(col))
lwd <- par()$col
N <- obj$N
bb <- obj$bb
mid <- xpos
low <- mid - width * 0.5
high <- mid + width * 0.5
if (N > 5) {
y <- c(bb[1], bb[1], NA, bb[1], bb[2], NA, bb[2], bb[2],
bb[4])
x <- c(high, low, NA, mid, mid, NA, high, low, low)
y <- c(y, bb[4], bb[2], bb[3], bb[3], NA, bb[4], bb[5],
bb[5], bb[5])
x <- c(x, high, high, high, low, NA, mid, mid, high,
low)
if (horizontal) {
lines(y, x, lwd = lwd, col = col)
}
else {
lines(x, y, lwd = lwd, col = col)
}
}
outs <- obj$out
olen <- length(outs)
if ((olen > 0) & outlier) {
if (horizontal) {
points(outs, rep(mid, olen), col = col)
}
else {
points(rep(mid, olen), outs, col = col)
}
}
}