## Not run:
# ## simple conversion with nicely ordered output
# data(woodmouse)
# genes <- list(gene1=woodmouse[,1:500], gene2=woodmouse[,501:965])
# x <- new("multidna", genes)
# x
# y <- multidna2alignment(x)
# y
# x2 <- multidna2multiphyDat(x)
# z <- multiphyDat2alignment(x2)
# ## End(Not run)
Run the code above in your browser using DataLab