R/phylo_metrics.R

In Neves-P/utilSIE: Utility Functions for DAISIE

DAISIE_calc_nlttdiff <- function(phylo1, phylo2) {
  nltt_stat <- nLTTstat_exact(phylo1, phylo2)
  return(nltt_stat)
}

DAISIE_calc_spectdens <- function(phylo, plot = TRUE) {
  MGL <- RPANDA::spectR(phylo = phylo, meth = "standard")
  if (plot == TRUE) {
    RPANDA::plot_spectR(spectR = MGL)
  }
  return(MGL)
}