R/calc_sum_stats.R

In Neves-P/utilSIE: Utility Functions for DAISIE

calc_sum_stats <- function(island_tree) {
  MGL <- RPANDA::spectR(island_tree)
  sum_stats <- list(principal_eigenvalue = MGL$principal_eigenvalue,
                    skewness = MGL$asymmetry)
  return(sum_stats)
}