In atsyplenkov/rusleR: Universal Soil Loss Equation Estimation

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(Rsagacmd)
library(terra)
library(rusleR)

# initiate a saga object
saga <- saga_gis(raster_backend = "terra")

# load DEM
f <- system.file("extdata/dem.tif", package="rusleR")
DEM <- rast(f)

# calculate LS-alpine
ls <- ls_alpine(dem = DEM)

plot(ls)

atsyplenkov/rusleR documentation built on Feb. 24, 2023, 9:04 a.m.