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