tokens <- matrix(c("0", "(12)", "1", "?", "-"),
nrow = 1,
dimnames = list("Taxon_A", paste0("C", 1:5)))
NexusTokensToInteger(tokens)
NexusTokensToInteger(tokens, polymorphism = "first")
Run the code above in your browser using DataLab