## load example tree
data(anoletree)
## simulate 10 characters on the Anolis tree
## under Brownian motion
X<-fastBM(anoletree,nsim=10)
head(X)
## create a plot
phylo.heatmap(anoletree,X,fsize=c(0.4,0.8,0.8),
standardize=TRUE,colors=terrain.colors(n=20))
Run the code above in your browser using DataLab