# NOT RUN {
data(anolis)
td <- make.treedata(anolis$phy, anolis$dat)
summarize(td, ntips = length(phy$tip.label), meanSVL = mean(SVL), sdSVL = sd(SVL))
tdGrouped <- group_by(td, ecomorph)
summarize(tdGrouped, ntips = length(phy$tip.label),
totalBL = sum(phy$edge.length), meanSVL = mean(SVL), sdSVL = sd(SVL))
# }
Run the code above in your browser using DataLab