https://github.com/cran/gstat
Tip revision: 896cd35f91880f970197d8575a84bd016331ab6f authored by Edzer J. Pebesma on 11 April 2008, 00:00:00 UTC
version 0.9-46
version 0.9-46
Tip revision: 896cd35
plot.pointPairs.R
# $Id: plot.pointPairs.q,v 1.4 2006-02-10 19:01:07 edzer Exp $
"plot.pointPairs" <-
function(x, data, xcol = data$x, ycol = data$y, xlab = "x coordinate",
ylab = "y coordinate", col.line = 2, line.pch = 0,
main = "selected point pairs", ...) {
if (is(data, "SpatialPoints")) {
cc = coordinates(data)
xcol = cc[,1]
ycol = cc[,2]
xlab = colnames(cc)[1]
ylab = colnames(cc)[2]
asp = mapasp(data)
} else
asp = "iso"
xyplot(ycol ~ xcol, aspect = asp,
panel = panel.pointPairs, xlab = xlab, ylab = ylab, pairs = x,
col.line = col.line, line.pch = line.pch, main = main, ...)
}