# NOT RUN {
sa.trans(slope = 48.146, aspect = 360.000)
library(raster)
data(elev)
sa <- raster::terrain(elev, opt=c("slope", "aspect"), unit="degrees")
scosa <- raster::overlay(sa[[1]], sa[[2]], fun = sa.trans)
# }
Run the code above in your browser using DataLab