if (FALSE) {
data(meuse.grid)
m <- SpatialPixelsDataFrame(points = meuse.grid[c("x", "y")],
data = meuse.grid)
explore(m[,3:5])
data(lynxjura)
explore(lynxjura$map, panel.last=function() points(lynxjura$locs))
}
Run the code above in your browser using DataLab