R/create_test_simulation_output.R

In xieshu95/Test-Trasie: Dynamical Assembly of Islands by Speciation, Immigration and Extinction

#' Creates the output of a as-short-as-possible
#' simulation run
#' @return simulation_outputs
#' @author Pedro Neves, Richel J.C. Bilderbeek
#' @export
create_test_simulation_outputs <- function() {
  set.seed(42)
  pars_equal <- c(2.550687345,2.683454548,Inf,0.00933207,1.010073119)
  DAISIE::DAISIE_sim(
    time = 0.4,
    M = 10,
    pars = pars_equal,
    replicates = 2,
    plot_sims = FALSE,
    verbose = FALSE
  )
}