The R Project SVN R

Rev

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

Rev 59039 Rev 61153
Line 79... Line 79...
79 
##--- An example for the use of 'asp' :
 79 
##--- An example for the use of 'asp' :
80 
require(stats)  # normally loaded
 80 
require(stats)  # normally loaded
81 
loc <- cmdscale(eurodist)
 81 
loc <- cmdscale(eurodist)
82 
rx <- range(x <- loc[,1])
 82 
rx <- range(x <- loc[,1])
83 
ry <- range(y <- -loc[,2])
 83 
ry <- range(y <- -loc[,2])
84 
plot(x, y, type="n", asp=1, xlab="", ylab="")
 84 
plot(x, y, type = "n", asp = 1, xlab = "", ylab = "")
85 
abline(h = pretty(rx, 10), v = pretty(ry, 10), col = "lightgray")
 85 
abline(h = pretty(rx, 10), v = pretty(ry, 10), col = "lightgray")
86 
text(x, y, labels(eurodist), cex=0.8)
 86 
text(x, y, labels(eurodist), cex = 0.8)
87 
}
 87 
}
88 
\keyword{aplot}
 88 
\keyword{aplot}