The R Project SVN R

(root)/trunk/src/library/stats/man/rect.hclust.Rd – Rev 59039 → 61160



\examples{
require(graphics)
 
hca <- hclust(dist(USArrests))
plot(hca)
rect.hclust(hca, k = 3, border = "red")
x <- rect.hclust(hca, h = 50, which = c(2,7), border = 3:4)
x
}
\keyword{aplot}
\keyword{cluster}

Rev 59039	Rev 61160
Line 38...	Line 38...
38	`\examples{`	38	`\examples{`
39	`require(graphics)`	39	`require(graphics)`
40		40
41	`hca <- hclust(dist(USArrests))`	41	`hca <- hclust(dist(USArrests))`
42	`plot(hca)`	42	`plot(hca)`
43	`rect.hclust(hca, k=3, border="red")`	43	`rect.hclust(hca, k = 3, border = "red")`
44	`x <- rect.hclust(hca, h=50, which=c(2,7), border=3:4)`	44	`x <- rect.hclust(hca, h = 50, which = c(2,7), border = 3:4)`
45	`x`	45	`x`
46	`}`	46	`}`
47	`\keyword{aplot}`	47	`\keyword{aplot}`
48	`\keyword{cluster}`	48	`\keyword{cluster}`