R/check_pff_experiment.R

In richelbilderbeek/peregrine: Work With The Groninger Peregrine Computer Cluster

#' Check if an experiment has PFF
#' @inheritParams default_params_doc
#' @export
check_pff_experiment <- function(experiment) {
  peregrine::check_pff_beast2_options(experiment$beast2_options)
  peregrine::check_pff_inference_model(experiment$inference_model)
  if (!peregrine::is_pff(experiment$errors_filename)) {
    stop("Peregrine-unfriendly filename for 'experiment$errors_filename'")
  }

}