#library(ape)
tree<-pbtree(n=100, scale=1)
mm<-cbind(c(1, -0.5), c(-0.5, 1))
z<-sim.char(tree, mm, model="BM")[,,1]
colnames(z)<-c("x", "y")
td<-make.treedata(tree, z)
phylopcaArbor(td)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.