# \donttest{
# get path to phylogram
path_to_file <- system.file("extdata/geophagus_raxml.nwk", package = "delimtools")
# run mPTP in single threshold mode (PTP)
ptp_df <- mptp_tbl(
infile = path_to_file,
exe = "/usr/local/bin/mptp",
method = "single",
minbrlen = 0.0001,
delimname = "ptp",
outfolder = NULL
)
# check
ptp_df
# run mPTP in multi threshold mode (mPTP)
mptp_df <- mptp_tbl(
infile = path_to_file,
exe = "/usr/local/bin/mptp",
method = "single",
minbrlen = 0.0001,
delimname = "mptp",
outfolder = NULL
)
# check
mptp_df
# }
Run the code above in your browser using DataLab