ade4 (version 1.6-2)

capitales: Road Distances

Description

This data set gives the road distances between 15 European capitals and their coordinates.

Usage

data(capitales)

source

http://www.euro.gouv.fr/jeunes/eurocollege/tableaucarte.htm

Examples

if (require(pixmap, quiet = TRUE)) {
         data(capitales)
         attr(capitales$dist, "Labels")
         index <- pmatch(tolower(attr(capitales$dist, "Labels")), names(capitales$logo))
         w1 <- capitales$area
         par(mfrow=c(2,2))
         s.label(capitales$xy, lab = attr(capitales$dist, "Labels")) 
         area.plot(w1)
	 rect(min(w1$x), min(w1$y), max(w1$x), max(w1$y), col = "lightblue")
	 invisible(lapply(split(w1, w1$id), function(x) polygon(x[, -1],col = "white")))
	 s.logo(capitales$xy, capitales$logo, klogo = index, add.plot =
TRUE, clogo = 0.5) # depends on pixmap
         table.dist(capitales$dist, lab = attr(capitales$dist, "Labels")) # depends on mva
    	 s.logo(pcoscaled(lingoes(capitales$dist)), capitales$logo,
klogo = index, clogo = 0.5) # depends on pixmap
}