Parameter estimation of the Thomas model by using the Palm log-likelihood function.
EstimateThomas(xy.points, pars, eps = 0.001, process.report = 0, plot = TRUE)
a matrix containing the coordinates (x,y)
of points in
a unit square: \(W=[0,1]\times[0,1]\).
a named vector of containing the initial guess of the model
parameters (mu
, nu
, sigma
), where mu
is
an intensity of parents, nu
is an expected number of descendants for
each parent and sigma
is a parameter of the dispersal kernel.
the optimization procedure is iterated at most 1000 times until
process2$stderr
becomes smaller than eps
.
the level of reporting the process of minimizing. Allowed values are as follows:
no report (default).
output the process of minimizing the negative Palm
log-likelihood function until the values converge to MPLEs.
(process1
)
output the process of optimizing by the simplex with
the normalized parameters. (process2
)
output both processes.
logical. If TRUE
(default), the process of optimizing by
the simplex with the normalized parameters is plotted.
MPLE (maximum Palm likelihood estimate).
a list with following components. (Only returned if
process.report
= 1 or 3.)
1 (="update") or -1 (="testfn"), where "update" indicates that -log L value has attained the minimum so far, otherwise not.
the minimized -log L in the process of minimizing the negative Palm log-likelihood function.
corresponding MPLEs.
a list with following components. (Only returned if
process.report
= 2 or 3.)
the minimized -log L by the simplex method.
the standard deviations.
the normalized variables corresponding the initial estimates.
The Palm intensity function of the Thomas model is calculated as follows:
For all \(r \ge 0\),
$$\lambda_{\bm{o}}(r) = \mu\nu + \frac{\nu}{4\pi \sigma^2} \exp \left( -\frac{r^2}{4 \sigma^2} \right).$$
The Palm log-likelihood function of the Thomas model on \(W\) is given by
$$\log L(\mu,\nu,\sigma) = \sum_{\{i,j; i<j, r_{ij} \le 1/2\}} \log \nu \left\{ \mu + \frac{1}{4 \pi \sigma^2} \exp \left( -\frac{{r_{ij}}^2}{4 \sigma^2} \right) \right\}$$
$$- N(W)\nu \left\{ \frac{\pi \mu}{4} + 1 - \exp \left( -\frac{1}{16 \sigma^2} \right) \right\}.$$
U. Tanaka, Y. Ogata and K. Katsura, Simulation and estimation of the Neyman-Scott type spatial cluster models, Computer Science Monographs No.34, 2008, 1-44. The Institute of Statistical Mathematics.
# NOT RUN {
## simulation
pars <- c(mu = 50.0, nu = 30.0, sigma = 0.03)
z <- SimulateThomas(pars, seed = 117)
## estimation
## need long c.p.u time in the minimization procedure
# }
# NOT RUN {
init.pars <- c(mu = 40.0, nu = 40.0, sigma = 0.05)
EstimateThomas(z$offspring$xy, init.pars)
# }
Run the code above in your browser using DataLab