Fix final obs_t use

epinowcast · Sep 23, 2024 · f630472 · f630472
1 parent 0213ab2
commit f630472
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-latent_lognormal.R b/tests/testthat/test-latent_lognormal.R
@@ -26,7 +26,7 @@ test_that("posterior_predict_latent_lognormal can generate predictions with no c
   fit <- readRDS(
     system.file("extdata/fit.rds", package = "epidist")
   )
-  draws <- data.frame(obs_t = 1000, pwindow = 0, swindow = 0) |>
+  draws <- data.frame(relative_obs_time = 1000, pwindow = 0, swindow = 0) |>
     tidybayes::add_predicted_draws(fit, ndraws = 100)
   expect_equal(draws$.draw, 1:100)
   pred <- draws$.prediction