atlas                  package:ade4                  R Documentation

_S_m_a_l_l _E_c_o_l_o_g_i_c_a_l _D_a_t_a_s_e_t

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

     'atlas' is a list containing three kinds of information about 23
     regions : 
      geographical coordinates, meteorology and bird presences.

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

     data(atlas)

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

     This list contains the following objects:

     _a_r_e_a is a convex hull of 23 geographical regions. 

     _x_y are the coordinates of the region centers and altitude (in
          meters). 

     _n_a_m_e_s._d_i_s_t_r_i_c_t is a vector of region names.

     _m_e_t_e_o is a data frame with 7 variables: min and max temperature in
          january; min and max temperature in july; january, july and
          total rainfalls.

     _b_i_r_d_s is a data frame with 15 variables (species).

     _a_l_t_i is a data frame with 3 variables altitude in percentage
          [0,800], ]800,1500] and ]1500,5000].

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

     Extract from: 
      Lebreton, Ph. (1977) Les oiseaux nicheurs rhonalpins. _Atlas
     ornithologique Rhone-Alpes_. Centre Ornithologique Rhone-Alpes,
     Universit Lyon 1, 69621 Villeurbanne.  Direction de la Protection
     de la Nature, Ministre de la Qualit de la Vie. 1-354.

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

     data(atlas)
     op <- par(no.readonly = TRUE) 
     par(mfrow = c(2,2))
     area.plot(atlas$area, cpoin = 1.5)
     area.plot(atlas$area, lab = atlas$names.district, clab = 1)
     x <- atlas$meteo$mini.jan

     names(x) <- row.names(atlas$meteo)
     area.plot(atlas$area, val = x, ncl = 12, sub = "Temp Mini January", 
         csub = 2, cleg = 1)
     s.corcircle((dudi.pca(atlas$meteo, scann = FALSE)$co), 
         clab = 1)

     area.plot(atlas$area, val = dudi.pca(atlas$meteo,scann=FALSE)$li[,1], 
         ncl = 12, sub = "Principal Component Analysis analysis", csub = 1.5, 
         cleg = 1)
     birds.coa <- dudi.coa(atlas$birds, sca = FALSE, nf = 1)
     x <- birds.coa$li$Axis1
     area.plot(atlas$area, val = x, ncl = 12, 
         sub = "Correspondence analysis", csub = 1.5, cleg = 1)

     s.value(atlas$xy, x, contour = atlas$contour, csi = 2, 
         incl = FALSE, addax = FALSE)
     triangle.plot(atlas$alti)
     par(op)
     par(mfrow=c(1,1))

