# NOT RUN {
fileName <- paste0(system.file(package='TreeTools'),
'/extdata/input/dataset.nex')
matrixLines <- readLines(fileName)[6:11]
ExtractTaxa(matrixLines)
NexusTokens('01[01]-?')
# }
Run the code above in your browser using DataCamp Workspace