"cut"(x, z=marks(x), ...)
"ppp"
.
cut.default
.
They determine the breakpoints for the mapping from numerical values
in z
to factor values in the output.
See cut.default
.
"ppp"
) with a marks
vector that is a factor.
x
into one of several possible types. The
classification is based on the dataset z
, which may be either
z
)
determining the classification of each point in x
.
Levels of the factor determine the classification.
z
). The range of values of z
will be divided into
bands (the number of bands is determined by ...
)
and z
will be converted to a factor using
cut.default
.
"im"
).
The value of z
at each point of x
will be
used as the classifying variable.
"tess"
, see
tess
). Each point of x
will be classified
according to the tile of the tessellation into which it falls.
"owin"
).
Each point of x
will be classified
according to whether it falls inside or outside this window.
marks(x)
, if this is a data frame.
"x"
or "y"
identifying one of the
spatial coordinates.
The default is to take z
to be the vector of marks in
x
(or the first column in the data frame of marks of x
,
if it is a data frame). If the marks are numeric, then the range of values
of the numerical marks is divided into several intervals, and each
interval is associated with a level of a factor.
The result is a
marked point pattern, with the same window and point locations as
x
, but with the numeric mark of each point discretised
by replacing it by the factor level.
This is a convenient way to transform a marked point pattern
which has numeric marks into a multitype point pattern,
for example to plot it or analyse it. See the examples.
To select some points from a point pattern, use the subset operators
[.ppp
or subset.ppp
instead.
cut
,
ppp.object
,
tess
# (1) cutting based on numeric marks of point pattern
trees <- longleaf
# Longleaf Pines data
# the marks are positive real numbers indicating tree diameters.
## Not run:
# plot(trees)
# ## End(Not run)
# cut the range of tree diameters into three intervals
long3 <- cut(trees, breaks=3)
## Not run:
# plot(long3)
# ## End(Not run)
# adult trees defined to have diameter at least 30 cm
long2 <- cut(trees, breaks=c(0,30,100), labels=c("Sapling", "Adult"))
plot(long2)
plot(long2, cols=c("green","blue"))
# (2) cutting based on another numeric vector
# Divide Swedish Pines data into 3 classes
# according to nearest neighbour distance
swedishpines
plot(cut(swedishpines, nndist(swedishpines), breaks=3))
# (3) cutting based on tessellation
# Divide Swedish Pines study region into a 4 x 4 grid of rectangles
# and classify points accordingly
tes <- tess(xgrid=seq(0,96,length=5),ygrid=seq(0,100,length=5))
plot(cut(swedishpines, tes))
plot(tes, lty=2, add=TRUE)
# (4) multivariate marks
finpines
cut(finpines, "height", breaks=4)
Run the code above in your browser using DataLab