Revision 899d6ebe6d6f86090ba8c139b6c970b4c326e5b0 authored by Edzer Pebesma on 16 September 2011, 00:00:00 UTC, committed by Gabor Csardi on 16 September 2011, 00:00:00 UTC
1 parent 8c9f4d1
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, ...)
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...