maples                 package:ade4                 R Documentation

_P_h_y_l_o_g_e_n_y _a_n_d _q_u_a_n_t_i_t_a_t_i_v_e _t_r_a_i_t_s _o_f _f_l_o_w_e_r_s

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

     This data set describes the phylogeny of 17 flowers as reported by
     Ackerly and Donoghue (1998). It also gives 31 traits corresponding
     to these 17 species.

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

     data(maples)

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

     'tithonia' is a list containing the 2 following objects :  

_t_r_e is a character string giving the phylogenetic tree in Newick
     format. 

_t_a_b is a data frame with 17 species and 31 traits

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

     Data were obtained from the URL <URL:
     http://www.stanford.edu/~dackerly/acerdata.html>.

_R_e_f_e_r_e_n_c_e_s:

     Ackerly, D. D. and Donoghue, M.J. (1998) Leaf size, sappling
     allometry, and Corner's rules: phylogeny and correlated evolution
     in Maples (Acer).  _American Naturalist_, *152*, 767-791.

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

     data(maples)
     phy <- newick2phylog(maples$tre)
     dom <- maples$tab$Dom
     bif <- maples$tab$Bif
     orthogram(dom, phylog = phy)
     orthogram(bif, phylog = phy)
     par(mfrow = c(1,2))
     dotchart.phylog(phy, dom)
     dotchart.phylog(phy, bif, clabel.nodes = 0.7)
     par(mfrow = c(1,1))
     plot(bif,dom,pch = 20)
     abline(lm(dom~bif))
     summary(lm(dom~bif))
     if (require(ape, quiet = TRUE)){
     cor.test(bif,dom)
     phylo <- read.tree(text = maples$tre)
     pic.bif <- pic(bif, phylo)
     pic.dom <- pic(dom, phylo)
     cor.test(pic.bif, pic.dom)}

