Simulation for the Thomas and Inverse-power type models, and the extended Thomas models of type A, B, and C.
sim.cppm(model = "Thomas", pars, seed = NULL)# S3 method for sim.cpp
print(x, ...)
# S3 method for sim.cpp
plot(x, parents.distinct = FALSE, ...)
sim.cppm returns an object of class "sim.cpp" containing the
following components which has print and plot methods.
a list containing two components named "n" and
"xy", which are the number and the matrix of (x,y) coordinates
of simulated parent points, respectively. For "TypeB", xy
[1:n[1], 1:2] and the remainder are generated from (mu1,
nu, sigma1) and (mu2, nu, sigma2),
respectively. For "TypeC", xy[1:n[1], 1:2] and the
remainder are generated from (mu1, nu1, sigma1) and
(mu2, nu2, sigma2), respectively.
a list containing two components named "n" and
"xy", which are the number and the matrix of (x,y) coordinates
of simulated descendant points, respectively. For "TypeB", xy
[1:n[1], 1:2] and the remainder are generated from (mu1,
nu, sigma1) and (mu2, nu, sigma2),
respectively. For "TypeC", xy[1:n[1], 1:2] and the
remainder are generated from (mu1, nu1, sigma1) and
(mu2, nu2, sigma2), respectively.
a character string indicating each cluster point process model:
"Thomas", "IP", "TypeA", "TypeB", and
"TypeC".
a named vector giving the values of each parameter. See 'Details'.
arbitrary positive integer to generate a sequence of uniform random numbers. The default seed is based on the current time.
an object of class "sim.cpp".
logical. If TRUE, simulated points are
distinguished by two groups specified by parameters. (Only valid if
model = "TypeB" or "TypeC".)
further graphical parameters from par
for plot or ignored for print.
We consider the five cluster point process models: the Thomas and Inverse-power type models, and the extended Thomas models of type A, B, and C.
"Thomas"
(Thomas model) The parameters of the model are as follows:
mu: the intensity of parent points.
nu: the expectation of a random number of descendant points
of each parent point.
sigma: the parameter set of the dispersal kernel.
"IP"
(Inverse-power type model) The parameters of the model are as follows:
mu: the intensity of parent points.
nu: the expectation of a random number of descendant points
of each parent point.
p, c: the set of parameters of the dispersal kernel,
where p > 1 and c > 0.
"TypeA"
(Type A model) The parameters of the model are as follows:
mu: the intensity of parent points.
nu: the expectation of a random number of descendant points
of each parent point.
a, sigma1, sigma2: the set of parameters of
the dispersal kernel, where where a is a mixture ratio
parameter with 0 < a < 1.
"TypeB"
(Type B model) The TypeB is a superposed Thomas model. The parameters of the model are as
follows:
mu1, mu2: the corresponding intensity of parent
points of each Thomas model.
nu: the expectation of a random number of descendant points
of each parent point.
sigma1, sigma2: the corresponding set of parameters
of the dispersal kernel of each Thomas model.
"TypeC"
(Type C model) The TypeC is a superposed Thomas model. The parameters of the model are as
follows:
mu1, mu2: the corresponding intensity of parent
points of each Thomas model.
nu1, nu2: the corresponding expectation of a random
number of descendant points of each Thomas model.
sigma1, sigma2: the corresponding set of parameters
of the dispersal kernel of each Thomas model.
Tanaka, U., Ogata, Y. and Katsura, K. (2008) Simulation and estimation of the Neyman-Scott type spatial cluster models. Computer Science Monographs 34, 1-44. The Institute of Statistical Mathematics, Tokyo. https://www.ism.ac.jp/editsec/csm/.
## Thomas Model
pars <- c(mu = 50.0, nu = 30.0, sigma = 0.03)
t.sim <- sim.cppm("Thomas", pars, seed = 117)
t.sim
plot(t.sim)
## Inverse-Power Type Model
pars <- c(mu = 50.0, nu = 30.0, p = 1.5, c = 0.005)
ip.sim <- sim.cppm("IP", pars, seed = 353)
ip.sim
plot(ip.sim)
## Type A Model
pars <- c(mu = 50.0, nu = 30.0, a = 0.3, sigma1 = 0.005, sigma2 = 0.1)
a.sim <- sim.cppm("TypeA", pars, seed = 575)
a.sim
plot(a.sim)
## Type B Model
pars <- c(mu1 = 10.0, mu2 = 40.0, nu = 30.0, sigma1 = 0.01, sigma2 = 0.03)
b.sim <- sim.cppm("TypeB", pars, seed = 257)
b.sim
plot(b.sim, parents.distinct = TRUE)
## Type C Model
pars <- c(mu1 = 5.0, mu2 = 9.0, nu1 = 30.0, nu2 = 150.0,
sigma1 = 0.01, sigma2 = 0.05)
c.sim <- sim.cppm("TypeC", pars, seed = 555)
c.sim
plot(c.sim, parents.distinct = FALSE)
Run the code above in your browser using DataLab