## Not run:
# tree<-pbtree(n=20,scale=2)
# x<-fastBM(tree)
# phenogram(tree,x)
# # or, simulate a discrete character history
# tree<-sim.history(tree,Q=matrix(c(-1,1,1,-1),2,2),anc="1")
# # simulate in which the rate depends on the state
# x<-sim.rates(tree,c(1,10))
# phenogram(tree,x)
# # now use spread.labels
# tree<-pbtree(n=40)
# x<-fastBM(tree)
# phenogram(tree,x,spread.labels=TRUE,spread.cost=c(1,0))
# ## End(Not run)
Run the code above in your browser using DataLab