# NOT RUN {
fileName <- paste0(system.file(package='TreeTools'),
'/extdata/input/dataset.nex')
ReadCharacters(fileName)
fileName <- paste0(system.file(package='TreeTools'),
'/extdata/tests/continuous.nex')
continuous <- ReadCharacters(fileName)
# To convert from strings to numbers:
at <- attributes(continuous)
continuous <- suppressWarnings(as.numeric(continuous))
attributes(continuous) <- at
continuous
# }
Run the code above in your browser using DataLab