The R Project SVN R

Rev

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

Rev 74265 Rev 76120
Line 242... Line 242...
242 
par(opar)
 242 
par(opar)
243 
 
 243 
 
244 
### Example 2: Straight-line distances among 10 US cities
 244 
### Example 2: Straight-line distances among 10 US cities
245 
##  Compare the results of algorithms "ward.D" and "ward.D2"
 245 
##  Compare the results of algorithms "ward.D" and "ward.D2"
246 
 
 246 
 
247 
data(UScitiesD)
 - 
 
248 
 
 - 
 
249 
mds2 <- -cmdscale(UScitiesD)
 247 
mds2 <- -cmdscale(UScitiesD)
250 
plot(mds2, type="n", axes=FALSE, ann=FALSE)
 248 
plot(mds2, type="n", axes=FALSE, ann=FALSE)
251 
text(mds2, labels=rownames(mds2), xpd = NA)
 249 
text(mds2, labels=rownames(mds2), xpd = NA)
252 
 
 250 
 
253 
hcity.D  <- hclust(UScitiesD, "ward.D") # "wrong"
 251 
hcity.D  <- hclust(UScitiesD, "ward.D") # "wrong"