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