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