## simple conversion with nicely ordered output
data(woodmouse)
genes <- list(gene1=woodmouse[,1:500], gene2=woodmouse[,501:965])
x <- new("multidna", genes)
x
## conversion multidna -> multiphyDat
y <- multidna2multiphyDat(x)
y
## check round trip
identical(x, multiphyDat2multidna(y))
Run the code above in your browser using DataLab