Use cmdstanr for Laplace test

epinowcast · Nov 13, 2024 · f1379b3 · f1379b3
1 parent 188b370
commit f1379b3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test-diagnostics.R b/tests/testthat/test-diagnostics.R
@@ -26,6 +26,8 @@ test_that("epidist_diagnostics gives an error when passed model fit using the La
   skip_on_cran()
   set.seed(1)
   prep_obs <- as_latent_individual(sim_obs)
-  fit_laplace <- epidist(data = prep_obs, seed = 1, algorithm = "laplace")
+  fit_laplace <- epidist(
+    data = prep_obs, seed = 1, algorithm = "laplace", backend = "cmdstanr"
+  )
   expect_error(epidist_diagnostics(fit_laplace))
 })