Fix type coercion tests in test-lfmcmc.R to use correct values

UofUEpiBio · Nov 20, 2024 · c96435d · c96435d
1 parent e9d43db
commit c96435d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/inst/tinytest/test-lfmcmc.R b/inst/tinytest/test-lfmcmc.R
@@ -88,7 +88,7 @@ expect_silent(run_lfmcmc(
   seed = model_seed
 ))
 
-# Check LFMCMC coerces parameters and observed data to correct types -----------
+# Check LFMCMC type coercion of parameters and observed data -------------------
 obs_data_int <- as.integer(obs_data)
 expect_silent(set_observed_data(lfmcmc_model, obs_data_int))
 
@@ -98,9 +98,9 @@ epsil_int <- as.integer(1)
 
 expect_silent(run_lfmcmc(
   lfmcmc = lfmcmc_model,
-  params_init_ = par0,
-  n_samples_ = n_samp,
-  epsilon_ = epsil,
+  params_init_ = par0_int,
+  n_samples_ = n_samp_double,
+  epsilon_ = epsil_int,
   seed = model_seed
 ))