powered by
AncestralStates(tree, x, ...)
data(dentus) data(dentus.tree) mean.list <- dlply(dentus, .(species), numcolwise(mean)) names(mean.list) <- dentus.tree$tip.label AncestralStates(dentus.tree, mean.list)
Run the code above in your browser using DataLab