Use Scott's rule of thumb to determine the smoothing bandwidth for the kernel estimation of point process intensity.
bw.scott(X, isotropic=FALSE, d=NULL) bw.scott.iso(X)
A numerical value giving the selected bandwidth, or a numerical vector giving the selected bandwidths for each coordinate.
A point pattern (object of class "ppp",
"lpp", "pp3" or "ppx").
Logical value indicating whether to compute a single
bandwidth for an isotropic Gaussian kernel (isotropic=TRUE)
or separate bandwidths for each coordinate axis
(isotropic=FALSE, the default).
Advanced use only. An integer value that should be used in Scott's formula instead of the true number of spatial dimensions.
Adrian Baddeley Adrian.Baddeley@curtin.edu.au, Rolf Turner rolfturner@posteo.net and Ege Rubak rubak@math.aau.dk.
These functions select a bandwidth sigma
for the kernel estimator of point process intensity
computed by density.ppp
or other appropriate functions.
They can be applied to a point pattern
belonging to any class "ppp", "lpp", "pp3"
or "ppx".
The bandwidth \(\sigma\) is computed by the rule of thumb of Scott (1992, page 152, equation 6.42). The bandwidth is proportional to \(n^{-1/(d+4)}\) where \(n\) is the number of points and \(d\) is the number of spatial dimensions.
This rule is very fast to compute. It typically produces a larger bandwidth
than bw.diggle. It is useful for estimating
gradual trend.
If isotropic=FALSE (the default), bw.scott provides a
separate bandwidth for each coordinate axis, and the result of the
function is a vector, of length equal to the number of coordinates.
If isotropic=TRUE, a single bandwidth value is computed
and the result is a single numeric value.
bw.scott.iso(X) is equivalent to
bw.scott(X, isotropic=TRUE).
The default value of \(d\) is as follows:
| class | dimension |
"ppp" | 2 |
"lpp" | 1 |
"pp3" | 3 |
"ppx" | number of spatial coordinates |
The use of d=1 for point patterns on a linear network
(class "lpp") was proposed by McSwiggan et al (2016)
and Rakshit et al (2019).
Scott, D.W. (1992) Multivariate Density Estimation. Theory, Practice and Visualization. New York: Wiley.
density.ppp,
bw.diggle,
bw.ppl,
bw.CvL,
bw.frac.
hickory <- split(lansing)[["hickory"]]
b <- bw.scott(hickory)
b
if(interactive()) {
plot(density(hickory, b))
}
bw.scott.iso(hickory)
bw.scott(osteo$pts[[1]])
Run the code above in your browser using DataLab