# \donttest{
## run GMYC
gmyc_res <- splits::gmyc(ape::as.phylo(geophagus_beast), method = "single")
# create a tibble
gmyc_df <- gmyc_tbl(gmyc_res)
## run bGMYC
bgmyc_res <- bGMYC::bgmyc.singlephy(ape::as.phylo(geophagus_beast),
mcmc = 11000,
burnin = 1000,
thinning = 100,
t1 = 2,
t2 = ape::Ntip(ape::as.phylo(geophagus_beast)),
start = c(1, 0.5, 50)
)
# create a tibble
bgmyc_df <- bgmyc_tbl(bgmyc_res, ppcutoff = 0.05)
## LocMin
# create a distance matrix
mat <- ape::dist.dna(geophagus, model = "raw", pairwise.deletion = TRUE)
# estimate local minima from `mat`
locmin_res <- spider::localMinima(mat)
# create a tibble
locmin_df <- locmin_tbl(mat,
threshold = locmin_res$localMinima[1],
haps = ape::as.phylo(geophagus_beast)$tip.label
)
# join delimitations
all_delims <- delim_join(list(gmyc_df, bgmyc_df, locmin_df))
# check
all_delims
# }
Run the code above in your browser using DataLab