# NOT RUN {
library(geotopbricks)
## Simulation working path
file <- system.file("rendena100/SnowDepthMapFile-2014-MA-mean-winter-2013-2014.asc",
package="geotopbricks")
snow <- raster(file)
min <- 0 # snow depth expressed in millimeters
max <- 2500 # snow depth expressed in millimeters
colors <- terrain.colors(1000)
color.bar.raster(x=snow,col=colors,digits=2)
color.bar.raster(x=snow,col=colors,min=min,max=max,digits=2)
# }
Run the code above in your browser using DataLab