if (requireNamespace("terra", quietly = TRUE)) {
ok <- try({
m <- matrix(sample(1:4, 500, replace = TRUE, prob = c(4,1,1,6)), nrow=25, ncol=20)
r1 <- terra::rast(m, crs = "+proj=utm +zone=55 +south +datum=WGS84 +units=m +no_defs")
EOO <- getEOO(r1)
}, silent = TRUE)
}
Run the code above in your browser using DataLab