The R Project SVN R

Rev

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

Rev 30448 Rev 35849
Line 46... Line 46...
46 
loc <- cmdscale(eurodist)
 46 
loc <- cmdscale(eurodist)
47 
rx <- range(x <- loc[,1])
 47 
rx <- range(x <- loc[,1])
48 
ry <- range(y <- -loc[,2])
 48 
ry <- range(y <- -loc[,2])
49 
plot(x, y, type="n", asp=1, xlab="", ylab="")
 49 
plot(x, y, type="n", asp=1, xlab="", ylab="")
50 
abline(h = pretty(rx, 10), v = pretty(ry, 10), col = "lightgray")
 50 
abline(h = pretty(rx, 10), v = pretty(ry, 10), col = "lightgray")
51 
text(x, y, names(eurodist), cex=0.8)
 51 
text(x, y, labels(eurodist), cex=0.8)
52 
}
 52 
}
53 
\keyword{aplot}
 53 
\keyword{aplot}