data(Paracou618)
# Calculate Originality of a species according to a simple functional tree, q=1
(Frequencies <- Originality.Species(EightSpTree, 1))
# Plot the result
if (require(ade4, quietly = TRUE)) {
dotchart.phylog(EightSpTree, Frequencies)
}
Run the code above in your browser using DataLab