rNeymanScott(lambda, rmax, rcluster, win = owin(c(0,1),c(0,1)), ...)
"owin"
or something acceptable to as.owin
.rcluster
"ppp"
).rcluster
.
The clusters must have a finite maximum possible radius rmax
. We algorithm
generates a uniform Poisson point process of ``parent'' points
with intensity lambda
. Then each parent point is
replaced by a random cluster of points, created by calling the
function rcluster
.
The function rcluster
should expect to be called as
rcluster(xp[i],yp[i],...)
for each parent point at a location
(xp[i],yp[i])
. The return value of rcluster
should be a list with elements
x,y
which are vectors of equal length giving the absolute
$x$ and y
coordinates of the points in the cluster.
rpoispp
,
rMatClust
library(spatstat)
nclust <- function(x0, y0, radius, n) {
return(runifdisc(n, radius, x0, y0))
}
X <- rNeymanScott(10, 0.2, nclust, radius=0.2, n=5)
Run the code above in your browser using DataLab