R/create_test_params_set.R

In richelbilderbeek/raket: What If Speciation Takes Time?

#' Create the parameter set used in testing
#' @inheritParams default_params_doc
#' @return a list of which each element is a \code{raket_params}
#' @author Richel J.C. Bilderbeek
#' @export
create_test_params_set <- function(
  project_folder_name = file.path(peregrine::get_pff_tempdir(), "raket_werper")
) {

  pbd_paramses <- raket::create_test_pbd_paramses()

  raket_paramses <- list()
  for (index in seq_along(pbd_paramses)) {
    folder_name <- file.path(project_folder_name, "data", index)
    raket_params <- raket::create_test_raket_params(folder_name)
    raket_params$sampling_method <- "random"
    raket_params$pbd_params <- pbd_paramses[[index]]
    raket_paramses[[index]] <- raket_params
  }
  testit::assert(length(raket_paramses) == length(pbd_paramses))
  raket_paramses
}