The swedishpines
dataset was recorded in a study plot in
a large forest. We shall assume the pattern is stationary.
Calculate the estimate of the \(K\)-function using
Kest
.
Plot the estimate of \(K(r)\) against \(r\)
Plot the estimate of \(K(r) -
\pi\!r^2\) against \(r\) (Hint:
look at the fmla
argument in
plot.fv
).
Calculate and plot an estimate of the pair correlation function
using pcf
.
Draw tentative conclusions from these plots about interpoint interaction in the data.
The command rThomas
generates simulated realisations of
the Thomas model (‘modified Thomas cluster process’).
Read the help file.
Type plot(rThomas(10, 0.05, 8))
a few times, and
interpret the results.
Experiment with the arguments of rThomas
to obtain
point patterns that
Read the help file for kppm
.
Fit the Thomas model to the redwood
data by the
method of minimum contrast:
fit <- kppm(redwood ~ 1, clusters="Thomas")
fit
plot(fit)
Read off the parameters of the fitted model, and generate a
simulated realisation of the fitted model using
rThomas
.
Type plot(simulate(fit))
to generate a simulated
realisation of the fitted model automatically.
Try the command
fit2 <- kppm(redwood ~ 1, clusters="Thomas", startpar=c(kappa=10, scale=0.1))
and briefly explore the fitting algorithm’s sensitivity to the
initial guesses at the parameter values kappa
and
scale
.
Generate and plot several simulated realisations of the fitted model, to assess whether it is plausible.
Extract and plot the fitted pair correlation function by
pcffit <- pcfmodel(fit)
plot(pcffit, xlim = c(0, 0.3))
Type plot(envelope(fit, Lest, nsim=39))
to generate
simulation envelopes of the \(L\)
function from this fitted model. Do they suggest the model is
plausible?
Fit a Matern cluster process to the redwood
data.
Use vcov
to estimate the covariance matrix of the
parameter estimates.
Compare with the covariance matrix obtained when fitting a homogeneous Poisson model.