# 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
# for(i in 1:length(mtrees))
# write.simmap(mtrees[[i]],file="treefile.tre",append=TRUE)
Run the code above in your browser using DataLab