data(data.layers)
data(data.records)
par(mfrow=c(1,2))
raster::plot(data.layers[[1]])
points(data.records)
croppedLayers <- raster.read(data.records, data.layers, 0.1)
raster::plot(croppedLayers[[1]])
points(data.records)
Run the code above in your browser using DataLab