Last chance! 50% off unlimited learning
Sale ends in
KinhomEnvelope(X, r = NULL, NumberOfSimulations = 100, Alpha = 0.05,
ReferenceType = "", lambda = NULL, SimulationType = "RandomPosition",
Global = FALSE)
wmppp.object
).NULL
, a sensible default value is chosen (512 intervals, from 0 to half the diameter of the window) following spatstat
.density.ppp
function.lambda
or estimated from X
);
"RandomTRUE
, a global envelope sensu Duranton and Overman (2005) is calculated.envelope
). There are methods for print and plot for this class.
The fv
contains the observed value of the function, its average simulated value and the confidence envelope.Kinhomhat
data(paracou16)
# Keep only 20\% of points to run this example
X <- as.wmppp(rthin(paracou16, 0.2))
plot(X)
# Density of all trees
lambda <- density.ppp(X, bw.diggle(X))
plot(lambda)
V.americana <- X[X$marks$PointType=="V. Americana"]
plot(V.americana, add=TRUE)
# Calculate Kinhom according to the density of all trees
# and confidence envelope (should be 1000 simulations, reduced to 4 to save time)
r <- 0:30
NumberOfSimulations <- 4
Alpha <- .10
plot(KinhomEnvelope(X, r,NumberOfSimulations, Alpha, ,
SimulationType="RandomPosition", lambda=lambda), ./(pi*r^2) ~ r)
Run the code above in your browser using DataLab