Kdot(X, i, r=NULL, breaks=NULL, correction, ...)X from which distances are measured.
Defaults to the first level of marks(X).r.
Not normally invoked by the user. See the Details section."border", "bord.modif",
"isotropic", "Ripley", "translate",
"none" or "best".
It specifie"fv" (see fv.object).Essentially a data frame containing numeric columns
"border", "bord.modif",
"iso" and/or "trans",
according to the selected edge corrections. These columns contain
estimates of the function $K_{i\bullet}(r)$
obtained by the edge corrections named.i is interpreted as
a level of the factor X$marks. Beware of the usual
trap with factors: numerical values are not
interpreted in the same way as character values. See the first example.The reduced sample estimator of $K_{i\bullet}$ is pointwise approximately unbiased, but need not be a valid distribution function; it may not be a nondecreasing function of $r$. Its range is always within $[0,1]$.
Kdot and its companions
Kcross and Kmulti
are generalisations of the function Kest
to multitype point patterns. A multitype point pattern is a spatial pattern of
points classified into a finite number of possible
``colours'' or ``types''. In the X must be a point pattern (object of class
"ppp") or any data that are acceptable to as.ppp.
It must be a marked point pattern, and the mark vector
X$marks must be a factor.
The argument i will be interpreted as a
level of the factor X$marks.
If i is missing, it defaults to the first
level of the marks factor, i = levels(X$marks)[1].
The ``type $i$ to any type'' multitype $K$ function
of a stationary multitype point process $X$ is defined so that
$\lambda K_{i\bullet}(r)$
equals the expected number of
additional random points within a distance $r$ of a
typical point of type $i$ in the process $X$.
Here $\lambda$
is the intensity of the process,
i.e. the expected number of points of $X$ per unit area.
The function $K_{i\bullet}$ is determined by the
second order moment properties of $X$.
An estimate of $K_{i\bullet}(r)$ is a useful summary statistic in exploratory data analysis of a multitype point pattern. If the subprocess of type $i$ points were independent of the subprocess of points of all types not equal to $i$, then $K_{i\bullet}(r)$ would equal $\pi r^2$. Deviations between the empirical $K_{i\bullet}$ curve and the theoretical curve $\pi r^2$ may suggest dependence between types.
This algorithm estimates the distribution function $K_{i\bullet}(r)$
from the point pattern X. It assumes that X can be treated
as a realisation of a stationary (spatially homogeneous)
random spatial point process in the plane, observed through
a bounded window.
The window (which is specified in X as X$window)
may have arbitrary shape.
Biases due to edge effects are
treated in the same manner as in Kest,
using the border correction.
The argument r is the vector of values for the
distance $r$ at which $K_{i\bullet}(r)$ should be evaluated.
The values of $r$ must be increasing nonnegative numbers
and the maximum $r$ value must exceed the radius of the
largest disc contained in the window.
The pair correlation function can also be applied to the
result of Kdot; see pcf.
Diggle, P.J. Statistical analysis of spatial point patterns. Academic Press, 1983.
Harkness, R.D and Isham, V. (1983) A bivariate spatial point pattern of ants' nests. Applied Statistics 32, 293--303 Lotwick, H. W. and Silverman, B. W. (1982). Methods for analysing spatial processes of several types of points. J. Royal Statist. Soc. Ser. B 44, 406--413.
Ripley, B.D. Statistical inference for spatial processes. Cambridge University Press, 1988.
Stoyan, D, Kendall, W.S. and Mecke, J. Stochastic geometry and its applications. 2nd edition. Springer Verlag, 1995.
Kdot,
Kest,
Kmulti,
pcf# Lansing woods data: 6 types of trees
data(lansing)
Kh. <- Kdot(lansing, "hickory")
<testonly>sub <- lansing[seq(1,lansing$n, by=80), ]
Kh. <- Kdot(sub, "hickory")</testonly>
# diagnostic plot for independence between hickories and other trees
plot(Kh.)
# synthetic example with two marks "a" and "b"
pp <- runifpoispp(50)
pp <- pp %mark% factor(sample(c("a","b"), pp$n, replace=TRUE))
K <- Kdot(pp, "a")Run the code above in your browser using DataLab