# simulate a tree & data
tree<-sim.history(pbtree(n=100,scale=1),Q=matrix(c(-1,1,1,-1),2,2))
# generate stochastic character maps
mtrees<-make.simmap(tree,tree$states,nsim=20)
# write them to file
lapply(mmtrees,write.simmap,file="treefile.tre",append=TRUE)
Run the code above in your browser using DataLab