if (FALSE) {
# Find example rasters
rasterFiles <- list.files(system.file('extdata', package='envirem'), full.names=TRUE)
elev <- raster(grep('elev', rasterFiles, value=TRUE))
# setting up appropriate RSAGA environment
sagaEnv <- RSAGA::rsaga.env(modules = '/usr/lib/x86_64-linux-gnu/saga/', cores = 2,
parallel = TRUE, version = "2.2.0")
topoWetnessIndex(elev, sagaEnv)
}
Run the code above in your browser using DataLab