capitales                package:ade4                R Documentation

_R_o_a_d _D_i_s_t_a_n_c_e_s

_D_e_s_c_r_i_p_t_i_o_n:

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

_U_s_a_g_e:

     data(capitales)

_F_o_r_m_a_t:

     This list contains the following objects:

     _d_f is a data frame containing the road distances between 15
          european capitals. 

     _x_y is a data frame containing the coordinates of capitals. 

_S_o_u_r_c_e:

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

_E_x_a_m_p_l_e_s:

     if (require(pixmap, quiet = TRUE)) {
         data(capitales)
         names(capitales$df)
         # [1] "Madrid"     "Paris"      "Londres"    "Dublin"     "Rome"      
         # [6] "Bruxelles"  "Amsterdam"  "Berlin"     "Copenhague" "Stokholm"  
         #[11] "Luxembourg" "Helsinki"   "Vienne"     "Athenes"    "Lisbonne"

         capitales.pnm <- read.pnm(system.file("pictures/capitales.pnm", package = "ade4"))
         # plot(capitales.pnm) # depends of pixmap
         # xy <- locator(15) # funny
         data(capitales)
         par(mfrow = c(2,2))
         s.label(capitales$xy, lab = names(capitales$df)) 
         s.label(capitales$xy, lab = names(capitales$df), pixmap = capitales.pnm, inc = FALSE)
         table.dist(as.dist(capitales$df), lab = names(capitales$df)) # depends of mva
         s.label(pcoscaled(lingoes(as.dist(capitales$df))))
         par(mfrow = c(1,1))
     }

