# \donttest{
library(dplyr)
library(sf)
library(stars)
library(itsdm)
data("occ_virtual_species")
env_vars <- system.file(
'extdata/bioclim_tanzania_10min.tif',
package = 'itsdm') %>% read_stars() %>%
slice('band', c(1, 5, 12, 16))
occ_outliers <- suspicious_env_outliers(
occ = occ_virtual_species, variables = env_vars,
z_outlier = 5, outliers_print = 4L)
print(occ_outliers)
# }
Run the code above in your browser using DataLab