The R Project SVN R

Rev

Rev 79012 | Rev 81927 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 79012 Rev 80080
Line 226... Line 226...
226 
require(graphics); require(utils)
 226 
require(graphics); require(utils)
227 
 
 227 
 
228 
hc <- hclust(dist(USArrests), "ave")
 228 
hc <- hclust(dist(USArrests), "ave")
229 
(dend1 <- as.dendrogram(hc)) # "print()" method
 229 
(dend1 <- as.dendrogram(hc)) # "print()" method
230 
str(dend1)          # "str()" method
 230 
str(dend1)          # "str()" method
231 
str(dend1, max = 2, last.str =  "'") # only the first two sub-levels
 231 
str(dend1, max.level = 2, last.str =  "'") # only the first two sub-levels
232 
oo <- options(str.dendrogram.last = "\\\\") # yet another possibility
 232 
oo <- options(str.dendrogram.last = "\\\\") # yet another possibility
233 
str(dend1, max = 2) # only the first two sub-levels
 233 
str(dend1, max.level = 2) # only the first two sub-levels
234 
options(oo)  # .. resetting them
 234 
options(oo)  # .. resetting them
235 
 
 235 
 
236 
op <- par(mfrow =  c(2,2), mar = c(5,2,1,4))
 236 
op <- par(mfrow =  c(2,2), mar = c(5,2,1,4))
237 
plot(dend1)
 237 
plot(dend1)
238 
## "triangle" type and show inner nodes:
 238 
## "triangle" type and show inner nodes: