# NOT RUN {
# get a safe file name
fname<-paste("PhyloSim_dummy_fas_",Sys.getpid(),sep="")
# write out a fasta alignment
cat("(a,(b,c));",file=fname);
# construct a PhyloSim object:
sim<-PhyloSim()
# read the alignment
readTree(sim,fname)
# remove alignment file
unlink(fname)
# plot the tree
plot(sim)
# }
Run the code above in your browser using DataLab