Reduce data set to one item and adjust tests accordingly [run ci]

R/DAISIE_data.R

@@ -566,15 +566,15 @@ NULL
 #' @keywords datasets
 NULL
 
-#' @name frogs_sim_CS_T30_M1000_R5000
-#' @title Colonization and branching times of 5000 data sets simulated with the
+#' @name frogs_sim_datalist
+#' @title Colonization and branching times of a data set simulated with the
 #' MLE parameters of frogs_datalist
 #' @docType data
-#' @format A list with 500 each with a variable number of elements, the first of
-#'  which contains 2 elements and the following elements containing 5 components.
-#' @description A list of lists containing the colonization and branching times
-#' of simulated data sets using the MLE parameters of IW model for the
-#' frogs_datalist. Each list is an R list object with the following elements.\cr \cr
+#' @format A list with the first element containing 2 elements and the following
+#'elements containing 5 components.
+#' @description A list containing the colonization and branching times
+#' of a simulated data set using the MLE parameters of IW model for the
+#' frogs_datalist. It is an R list object with the following elements.\cr \cr
 #' The first element of the list has two components: \cr \cr
 #' \code{$island_age} - the island age \cr
 #' \code{$not_present} - the number of mainland lineages that are not present

tests/testthat/test-integration_DAISIE.R

@@ -143,10 +143,9 @@ test_that("IW loglik does not error when there is recolonization", {
   skip_if(Sys.getenv("CI") == "" && !(Sys.getenv("USERNAME") == "rampa"),
           message = "Run only on CI")
   skip_on_cran()
-  frogs_sim_CS_T30_M1000_R5000 <- NULL
-  rm(frogs_sim_CS_T30_M1000_R5000)
-  data(frogs_sim_CS_T30_M1000_R5000, package = "DAISIE")
-  datalist <- frogs_sims[[897]]
+  frogs_sim_datalist <- NULL
+  rm(frogs_sim_datalist)
+  data(frogs_sim_datalist, package = "DAISIE")
   M <- 1000
   ddmodel <- 11
   initparsopt <- c(4.012298e-01,1.699521e-01,1.319595e+02,3.487955e-04)
@@ -170,7 +169,7 @@ test_that("IW loglik does not error when there is recolonization", {
                                               idparsfix = idparsfix,
                                               M = M,
                                               pars2 = pars2,
-                                              datalist = datalist,
+                                              datalist = frogs_sim_datalist,
                                               methode = methode,
                                               abstolint = tolint[1],
                                               reltolint = tolint[2])