library(raster)
library(sp)
r <- raster(ncol=1000, nrow=1000)
r[] <- rpois(ncell(r), lambda=1)
r <- calc(r, fun=function(x) { x[x >= 1] <- 1; return(x) } )
x <- sampleRandom(r, 10, na.rm = TRUE, sp = TRUE)
land.metrics(x=x, y=r, bw=0.72, bkgd = 0, latlon = TRUE, Trace = FALSE)Run the code above in your browser using DataLab