r <- raster()
r <- setValues(r, 1:ncell(r))
minValue(r)
maxValue(r)
r <- setValues(r, round(100 * runif(ncell(r)) + 0.5))
minValue(r)
maxValue(r)
r <- raster(system.file("external/test.grd", package="raster"))
minValue(r)
maxValue(r)
Run the code above in your browser using DataLab