# NOT RUN {
library(landscapemetrics)
library(raster)
data(landscape)
points <- matrix(c(10, 5, 25, 15, 5, 25),
ncol = 2, byrow = TRUE)
sample_lsm(landscape, y = points, size = 10,
level = "landscape", type = "diversity metric",
classes_max = 3,
verbose = FALSE)
# }
Run the code above in your browser using DataLab