| pseudo.absence {spatialEco} | R Documentation |
Pseudo-absence random samples
Description
Generates pseudo-absence samples based on density estimate of known locations
Usage
pseudo.absence(
x,
n,
window = "hull",
ref = NULL,
s = NULL,
sigma = "Scott",
wts = NULL,
KDE = FALSE,
gradient = 1,
p = NULL,
edge = FALSE
)
Arguments
x |
An sf POINT geometry object |
n |
Number of random samples to generate |
window |
Type of window (hull OR extent), overridden if mask provided |
ref |
Optional terra SpatRaster class raster. The resolution of the density estimate will match mask. |
s |
Optional resolution passed to window argument. Caution should be used due to long processing times associated with high resolution. In contrast, coarse resolution can exclude known points. |
sigma |
Bandwidth selection method for KDE, default is 'Scott'. Options are 'Scott', 'Stoyan', 'Diggle', 'likelihood', and 'geometry' |
wts |
Optional vector of weights corresponding to point pattern |
KDE |
Return KDE raster (TRUE/FALSE) |
gradient |
A scaling factor applied to the sigma parameter used to adjust the gradient decent of the density estimate. The default is 1, for no adjustment (downweight < 1 | upweight > 1) |
p |
Minimum value for probability distribution (must be > 0) |
edge |
Apply Diggle edge correction (TRUE/FALSE) |
Details
The window type creates a convex hull by default or, optionally, uses the maximum extent (envelope). If a mask is provided the kde will represent areas defined by the mask and defines the area that pseudo absence data will be generated.
Available bandwidth selection methods are:
Scott (Scott 1992), Scott's Rule for Bandwidth Selection (1st order)
Diggle (Berman & Diggle 1989), Minimize the mean-square error via cross
validation (2nd order)
likelihood (Loader 1999), Maximum likelihood cross validation (2nd order)
geometry, Bandwidth is based on simple window geometry (1st order)
Stoyan (Stoyan & Stoyan 1995), Based on pair-correlation function (strong 2nd order)
User defined numeric distance bandwidth
Value
A list class object with the following components:
sample A sf POINT geometry object containing random samples
kde A terra SpatRaster class of inverted Isotropic KDE estimates used as sample weights (IF KDE = TRUE)
sigma Selected bandwidth of KDE
Note
resulting bandwidth can vary widely by method. the 'diggle' method is intended for selecting bandwidth representing 2nd order spatial variation whereas the 'scott' method will represent 1st order trend. the 'geometry' approach will also represent 1st order trend. For large datasets, caution should be used with the 2nd order 'likelihood' approach, as it is slow and computationally expensive. finally, the 'stoyan' method will produce very strong 2nd order results.
Author(s)
Jeffrey S. Evans jeffrey_evans@tnc.org
References
Berman, M. and Diggle, P. (1989) Estimating weighted integrals of the second-order intensity of a spatial point process. Journal of the Royal Statistical Society, series B 51, 81-92.
Fithian, W & T. Hastie (2013) Finite-sample equivalence in statistical models for presence-only data. Annals of Applied Statistics 7(4): 1917-1939
Hengl, T., H. Sierdsema, A. Radovic, and A. Dilo (2009) Spatial prediction of species distributions from occurrence-only records: combining point pattern analysis, ENFA and regression-kriging. Ecological Modelling, 220(24):3499-3511
Loader, C. (1999) Local Regression and Likelihood. Springer, New York.
Scott, D.W. (1992) Multivariate Density Estimation. Theory, Practice and Visualization. New York, Wiley.
Stoyan, D. and Stoyan, H. (1995) Fractals, random shapes and point fields: methods of geometrical statistics. John Wiley and Sons.
Warton, D.i., and L.C. Shepherd (2010) Poisson Point Process Models Solve the Pseudo-Absence Problem for Presence-only Data in Ecology. The Annals of Applied Statistics, 4(3):1383-1402
Examples
p = c("sf", "sp", "terra", "spatstat.data")
if(any(!unlist(lapply(p, requireNamespace, quietly=TRUE)))) {
m = which(!unlist(lapply(p, requireNamespace, quietly=TRUE)))
message("Can't run examples, please install ", paste(p[m], collapse = " "))
} else {
invisible(lapply(p, require, character.only=TRUE))
data(meuse, package = "sp")
meuse <- st_as_sf(meuse, coords = c("x", "y"), crs = 28992,
agr = "constant")
# Using a raster mask
r <- rast(ext(meuse), resolution=40, crs=crs(meuse))
r[] <- rep(1,ncell(r))
pa <- pseudo.absence(meuse, n=100, window='hull', KDE=TRUE, ref = r,
sigma='Diggle', s=50)
col.br <- colorRampPalette(c('blue','yellow'))
plot(pa$kde, col=col.br(10))
plot(st_geometry(meuse), pch=20, cex=1, add=TRUE)
plot(st_geometry(pa$sample), col='red', pch=20, cex=1, add=TRUE)
legend('top', legend=c('Presence', 'Pseudo-absence'),
pch=c(20,20),col=c('black','red'), bg="white")
# With clustered data
data(bei, package = "spatstat.data")
trees <- st_as_sf(bei)
trees <- trees[-1,]
trees.abs <- pseudo.absence(trees, n=100, window='extent', KDE=TRUE)
col.br <- colorRampPalette(c('blue','yellow'))
plot(trees.abs$kde, col=col.br(10))
plot(st_geometry(trees), pch=20, cex=0.50, add=TRUE)
plot(st_geometry(trees.abs$sample), col='red', pch=20, cex=1, add=TRUE)
legend('top', legend=c('Presence', 'Pseudo-absence'),
pch=c(20,20),col=c('black','red'),bg="white")
}