kcponds                 package:ade4                 R Documentation

_P_o_n_d_s _i_n _a _n_a_t_u_r_e _r_e_s_e_r_v_e

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

     This data set contains informations about 33 ponds in De Maten
     reserve (Genk, Belgium).

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

     data(kcponds)

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

     _t_a_b : a data frame with 15 environmental variables(columns) on 33
          ponds(rows)

     _a_r_e_a : an object of class 'area'

     _x_y : a data frame with the coordinates of ponds

     _n_e_i_g : an object of class 'neig'   .in -5 

_D_e_t_a_i_l_s:

     Variables of 'kcponds$tab' are the following ones : depth, area,
     O2 (oxygen concentration),  cond (conductivity), pH, Fe (Fe
     concentration), secchi (Secchi disk depth), N (NNO concentration),
     TP (total phosphorus concentration), chla (chlorophyll-a
     concentration), EM (emergent macrophyte cover), FM (floating
     macrophyte cover), SM (submerged macrophyte cover), denMI (total
     density of macroinvertebrates), divMI (diversity
     macroinvertebrates)

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

     Cottenie, K. (2002) Local and regional processes in a zooplankton
     metacommunity. PhD, Katholieke Universiteit Leuven, Leuven,
     Belgium. 
      <URL: http://www.kuleuven.ac.be/bio/eco/phdkarlcottenie.pdf>

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

     data(kcponds)

     par(mfrow=c(3,1))
     area.plot(kcponds$area)
     s.label(kcponds$xy,add.p = TRUE, cpoi = 2, clab = 0)
     s.label(kcponds$xy,add.p = TRUE, cpoi = 3, clab = 0)
     s.label(kcponds$xy,add.p = TRUE, cpoi = 0, clab = 0,
          neig = kcponds$neig, cneig = 1)
     area.plot(kcponds$area)
     s.label(kcponds$xy, add.p = TRUE, clab = 1.5)
     w <- as.numeric(scalewt(kcponds$tab$N))
     s.value(kcponds$xy, w, cleg = 2, sub = "Nitrogen concentration",
          csub = 4, possub = "topright", include = FALSE)
     par(mfrow = c(1,1))
     ## Not run: 
     par(mfrow=c(3,1))
     pca1 <- dudi.pca(kcponds$tab, scan = FALSE, nf = 4)
     if (require(maptools, quiet = TRUE) & require(spdep, quiet = TRUE)) {
     multi1 <- multispati(pca1, nb2listw(neig2nb(kcponds$neig)),
          scan = FALSE, nfposi = 2, nfnega = 1)
     summary(multi1)}
     par(mfrow = c(1,1))
     ## End(Not run)

