## The following example require to have downloaded
## a large elevation raster with the function GetElev()
## and will therefore not run unless you type:
## example(elevationrastersmall, run.dontrun=TRUE)
## Not run:
# ### CREATING THE OBJECT elevationrastersmall
#
# ## download the tif file (ca. 700 Mb):
# ## (see ?GetElev for details on how to get the tif file)
# # GetElev()
#
# ## convert the tif into R raster format:
# library(raster)
# elevationrasterbig <- raster("elevation_raster_gmted2010_30mn.tif")
#
# ## create the highly agregated elevation raster
# ## (90 sec on one of our computers):
# elevationrastersmall <- RElevate(
# elevationrasterbig,
# aggregation.factor=100)
# ## End(Not run)
Run the code above in your browser using DataLab