R/shorten_pir_paramses.R

In richelbilderbeek/pirouette: Create a Bayesian Posterior from a Phylogeny

#' Shorten the list of \code{pir_params}
#' @inheritParams default_params_doc
#' @return a shortened \link{list} of \code{pir_params}
#' @export
shorten_pir_paramses <- function(pir_paramses) {
  pirouette::check_pir_paramses(pir_paramses)
  for (i in seq_along(pir_paramses)) {
    pir_paramses[[i]] <- pirouette::shorten_pir_params(pir_paramses[[i]])
  }
  pir_paramses
}