data(calibrationdata)
head(calibrationdata)
str(calibrationdata)
## The following example require to have downloaded
## a large elevation raster with the function GetElev()
## and will therefore not run unless you type:
## example(calibrationdata, run.dontrun=TRUE)
## Not run:
# if(require(raster)){
# ### DELETE AND RECREATE ELEVATION DATA
# calibrationdata$elev <- NULL ## we delete them
#
# ## we reconstruct the elevation data using an elevation raster:
# ## (see ?GetElev for details on how to get the tif file)
# elevationrasterbig <- raster("elevation_raster_gmted2010_30mn.tif")
# calibrationdata$elev <- extract(
# elevationrasterbig,
# cbind(calibrationdata$long, calibrationdata$lat))
# head(calibrationdata)
# }
#
# ## End(Not run)
Run the code above in your browser using DataLab