# NOT RUN {
grid <- gridInfo(paste(system.file("extdata", package = "EmissV"),"/wrfinput_d01",sep=""))
x <- raster::raster(paste(system.file("extdata", package = "EmissV"),"/dmsp.tiff",sep=""))
test <- rasterSource(x,grid)
# }
# NOT RUN {
image(test,axe = F, main = "Spatial distribution by Persistent Nocturnal Lights from DMSP")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab