# \donttest{
# Find example rasters
rasterFiles <- list.files(system.file('extdata', package='envirem'), full.names=TRUE)
env <- stack(rasterFiles)
# identify appropriate layers
tmean <- grep('tmean', names(env))
tmin <- grep('tmin', names(env))
tmax <- grep('tmax', names(env))
tmean <- env[[tmean]]
tmin <- env[[tmin]]
tmax <- env[[tmax]]
# calculate temperature extremes
temp <- otherTempExtremes(tmean, tmin, tmax)
meantempWarmest <- temp[['meanTempWarmest']]
meantempColdest <- temp[['meanTempColdest']]
continentality(meantempWarmest, meantempColdest, tempScale = 10)
# }
Run the code above in your browser using DataLab