# create a distance matrix
mat <- ape::dist.dna(geophagus, model = "raw", pairwise.deletion = TRUE)
# run Local Minima
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)
# check
locmin_df
Run the code above in your browser using DataLab