## Toy Exemple
set.seed(123)
# Generating a random tree
tree<-pbtree(n=25)
tree2<-tree
# Transform branch length according to an early burst
# Not run!
#library(geiger)
#tree2=exponentialchangeTree(tree, a=-1)
# 2 Random traits evolving along the phylogeny
data<-data.frame(head.size=rTraitCont(tree2), mouth.size=rTraitCont(tree2))
## Run the analysis!!
# EB model with two traits
mvEB(tree,data)
# Comparison with BM model
mvBM(tree,data,model="BM1",simmap.tree=FALSE)
Run the code above in your browser using DataLab