tokens <- matrix(c(
0, "-", "-", 1, 1, 2,
0, 1, 0, 1, 2, 2,
0, "-", "-", 0, 0, 0), byrow = TRUE, nrow = 3L,
dimnames = list(letters[1:3], NULL))
pd <- TreeTools::MatrixToPhyDat(tokens)
morphyObj <- PhyDat2Morphy(pd)
RandomTreeScore(morphyObj)
morphyObj <- UnloadMorphy(morphyObj)
Run the code above in your browser using DataLab