data(Laurasiatherian)
#' ## empty object
new("multiphyDat")
## simple conversion with nicely ordered output
genes <- list(gene1=Laurasiatherian[, 1:1600],
gene2=Laurasiatherian[, 1601:3179])
x <- new("multiphyDat", genes)
x
## trickier conversion with missing sequences / wrong order
genes <- list(gene1=Laurasiatherian[1:40,],
gene2=Laurasiatherian[8:47, ])
x <- new("multiphyDat", genes)
x
Run the code above in your browser using DataLab