# NOT RUN {
library(landscapemetrics)
library(raster)
data(landscape)
s <- matrix(1, nrow = 3, ncol = 3)
( result <- do.call(stack, window_lsm(landscape, window = s,
what = c("lsm_l_pr", "lsm_l_joinent"))) )
plot(result)
# }
Run the code above in your browser using DataLab