update function call

seroanalytics · Nov 14, 2024 · 85979fc · 85979fc
1 parent 4bdc523
commit 85979fc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-data.R b/tests/testthat/test-data.R
@@ -11,8 +11,8 @@ test_that("Can provide data directly", {
 
 test_that("Can construct stan data", {
   dat <- data.table::fread(system.file("delta_full.rds", package = "epikinetics"))
-  priors <- biokinetics_priors(mu_values = c(1, 2, 3, 4, 5, 6),
-                               sigma_values = c(0.1, 0.2, 0.3, 0.4, 0.5, 0.6))
+  priors <- biokinetics_priors(1, 2, 3, 4, 5, 6,
+                               0.1, 0.2, 0.3, 0.4, 0.5, 0.6)
   mod <- biokinetics$new(data = dat, priors = priors)
   stan_data <- mod$get_stan_data()
   expect_true(is.list(stan_data))