virtual_list.RdComputes a Virtual Floristic List (VFL): taxa potentially occurring within a study site, with probabilities based on spatial uncertainty and temporal decay using inclusion-exclusion principle.
Data frame with columns: 'Taxon', 'Long', 'Lat', 'uncertainty' (radius in meters), 'year'.
sf polygon or SpatialPolygonsDataFrame of study area.
Numeric year of analysis (default = current year).
Optional sf polygon(s) of unsuitable areas to exclude.
Numeric EPSG code for projected CRS (default = 3035).
Percent taxa loss per 100 years (0 ≤ tau < 100).
Maximum number of records per taxon used in probability calculation (default = 20). Prevents computational explosion for well-sampled taxa. Higher values increase accuracy but dramatically slow computation:
10 Very fast, good accuracy - for exploratory analysis
20 Fast, very good accuracy - recommended default
30 Slow, excellent accuracy - for publication-quality results
Minimum probability threshold ( (default = 0). Set to 5-10 to filter unlikely taxa.
Logical; print progress messages (default = TRUE).
Logical; plot spatial overlap diagnostic (default = TRUE).
Directory for output files (default = working directory).
Filename prefix (default = "VFL").
List with:
VFLData frame: Taxon, probability, records, max, min.
StatisticsMetadata table.
PlotsNamed list of 2 ggplot objects (histograms).
spatial_datasf objects for further analysis.
The function uses the inclusion-exclusion principle to aggregate probabilities
from multiple records of the same taxon. For a taxon with n records, the
computation requires 2^n combinations. The upperlimit parameter prevents
exponential explosion: with n > upperlimit, only the upperlimit records with
highest probabilities are used.
PDF Output Structure (2 pages, A4 landscape):
Page 1 Distribution analysis (probability + temporal histograms)
Page 2 Summary statistics table
if (FALSE) { # \dontrun{
# Load example data
data(floratus)
data(park)
# Basic usage (creates VFL_output.pdf and VFL_probabilities.csv)
vfl <- virtual_list(
data_flor = floratus,
site = park,
tau = 30
)
# Custom naming (creates Park_output.pdf and Park_probabilities.csv)
vfl <- virtual_list(
data_flor = floratus,
site = park,
tau = 30,
output_prefix = "Park"
)
# Filter unlikely taxa (>5% probability only)
vfl_filtered <- virtual_list(
data_flor = floratus,
site = park,
tau = 30,
min_probability = 5
)
# High accuracy mode
vfl_accurate <- virtual_list(
data_flor = floratus,
site = park,
tau = 30,
upperlimit = 30
)
} # }