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