leafshape17               package:DAAG               R Documentation

_S_u_b_s_e_t _o_f _L_e_a_f _S_h_a_p_e _D_a_t_a _S_e_t

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

     The 'leafshape17' data frame has 61 rows and 8 columns. These are
     leaf length, width and petiole measurements taken at several sites
     in Australia.  This is a subset of the  'leafshape' data frame.

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

     leafshape17

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

     This data frame contains the following columns:

     _b_l_a_d_e_l_e_n leaf length (in mm)

     _p_e_t_i_o_l_e a numeric vector

     _b_l_a_d_e_w_i_d leaf width (in mm)

     _l_a_t_i_t_u_d_e latitude

     _l_o_g_w_i_d natural logarithm of width

     _l_o_g_p_e_t logarithm of petiole measurement

     _l_o_g_l_e_n logarithm of length

     _a_r_c_h leaf architecture (0 = orthotropic, 1 = plagiotropic)

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

     King, D.A. and Maindonald, J.H. 1999. Tree architecture in
     relation to leaf dimensions and tree stature in temperate and
     tropical rain forests. Journal of Ecology 87: 1012-1024.

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

     print("Discriminant Analysis - Example 11.2")

     require(MASS)
     leaf17.lda <- lda(arch ~ logwid+loglen, data=leafshape17)
     leaf17.hat <- predict(leaf17.lda)
     leaf17.lda
      table(leafshape17$arch, leaf17.hat$class)
     pause()

     tab <- table(leafshape17$arch, leaf17.hat$class)
      sum(tab[row(tab)==col(tab)])/sum(tab)
     leaf17cv.lda <- lda(arch ~ logwid+loglen, data=leafshape17, CV=TRUE)
     tab <- table(leafshape17$arch, leaf17cv.lda$class)
     pause()

     leaf17.glm <- glm(arch ~ logwid + loglen, family=binomial, data=leafshape17)
      options(digits=3)
     summary(leaf17.glm)$coef
     pause()

     leaf17.one <- cv.binary(leaf17.glm)
     table(leafshape17$arch, round(leaf17.one$internal))     # Resubstitution
     pause()

     table(leafshape17$arch, round(leaf17.one$cv))           # Cross-validation

