1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
\name{plot.divchain}
\alias{plot.divchain}
\title{
Plot a dividing chain.
}
\description{
Plot the dividing chain of a Dirchlet tesselation.
The tessellation must have been created from a set of points
having associated categorical \dQuote{weights}. The dividing
chain consists of those edges of Dirichlet tiles which separate
points having different values of the given weights.
}
\usage{
\method{plot}{divchain}(x, add = FALSE, ...)
}
\arguments{
\item{x}{
An object of class \dQuote{divchain}. See \code{\link{divchain.deldir}()}
for details.
}
\item{add}{
Logical scalar. It \code{add=TRUE} the plot of the dividing chain
is added to an existing plot.
}
\item{\dots}{
Graphical parameters such as \code{main}, \code{xlab}, \code{col.main},
\code{col.lab}. In particular if \code{bty} is supplied
(as a value other than \code{n}) a \dQuote{box} will be drawn
around the plot that is formed when \code{add=FALSE}.
Also a non-standard graphical parameter \code{boxcol} may be supplied
which will be taken to be the colour with which the box is drawn.
If a \code{col} argument is supplied, this determines the colour
for plotting the segments constituting the dividing chain.
}
}
\value{
None.
}
\author{
Rolf Turner
\email{r.turner@auckland.ac.nz}
% \url{https://www.stat.auckland.ac.nz/~rolf}
}
\note{
This function was created in response to a question asked
on \code{stackoverflow.com} by a user named \dQuote{Dan}.
}
\seealso{
\code{\link{divchain}()} \code{\link{divchain.default}()}
\code{\link{divchain.deldir}()} \code{\link{deldir}()}
}
\examples{
set.seed(42)
x <- runif(50)
y <- runif(50)
z <- factor(kmeans(cbind(x,y),centers=4)$cluster)
dc <- divchain(x,y,z,rw=c(0,1,0,1))
plot(dc,lwd=2,col="blue",bty="o")
}
\keyword{ spatial }
|
