# NOT RUN {
### raster data ###
library(sp)
library(raster)
data(meuse.grid)
coordinates(meuse.grid) = ~x+y
proj4string(meuse.grid) <- CRS("+init=epsg:28992")
gridded(meuse.grid) = TRUE
meuse_rst <- stack(meuse.grid)
# SpatialPixelsDataFrame
plainView(meuse.grid, zcol = "dist")
# }
# NOT RUN {
# raster layer
m1 <- plainView(poppendorf[[5]])
m1
# raster stack - true color
plainview(poppendorf, 4, 3, 2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab