dir <- system.file("extdata", package = "phylotools")
file.copy(from = dir, to = getwd())
## Supermatrix with "rbcla","matk","trnH-psbA"
supermat1 <- supermat(rbcl = "rbcla.phy", matk = "matK.phy",
trn = c("trn1.phy", "trn2.phy","trn3.phy","trn4.phy"))
write.mat(supermat1, "result1.phy")
Run the code above in your browser using DataLab