data(stepwise.seqs)
dim(stepwise.seqs) # 30 x 1000
## Not run:
# # write the 30 sequences to a Phylip-format input file
# cat(paste(nrow(stepwise.seqs),ncol(stepwise.seqs),"\n"),
# file="stepwise.phy")
# write.table(stepwise.seqs,file="stepwise.phy",append=TRUE,quote=FALSE,
# sep="", row.names=TRUE,col.names=FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab