# \donttest{
data(efidata)
danube <- system.file('extdata/danube.shp.zip', package='specleanr')
db <- sf::st_read(danube, quiet=TRUE)
wcd <- terra::rast(system.file('extdata/worldclim.tiff', package = "specleanr"))
extdf <- pred_extract(data = efidata, raster = wcd,
lat = 'decimalLatitude', lon = 'decimalLongitude',
colsp = "scientificName",
list = TRUE,verbose = FALSE,
minpts = 6,merge = FALSE)#basin removed
#outlier detection
outliersdf <- multidetect(data = extdf, output='outlier', var = 'bio6',
exclude = c('x','y'), multiple = TRUE,
methods = c('mixediqr', "iqr", "mahal", "iqr", "logboxplot"))
totabs_counts <- multiabsolute(x = outliersdf, threshold = 0.2)
# }
Run the code above in your browser using DataLab