Skip to content

Commit

Permalink
update tests
Browse files Browse the repository at this point in the history
  • Loading branch information
sbfnk committed Nov 22, 2024
1 parent 5dc48de commit ceb13e7
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 2 deletions.
2 changes: 1 addition & 1 deletion tests/testthat/test-estimate_infections.R
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ test_that("estimate_infections successfully returns estimates when accumulating
reported_cases_weekly <-
reported_cases_weekly[seq(7, nrow(reported_cases_weekly), 7)]
reported_cases_weekly <- fill_missing(
reported_cases_weekly, na = "accumulate", initial_accumulate = 7
reported_cases_weekly, missing_obs = "accumulate", initial_accumulate = 7
)
test_estimate_infections(reported_cases_weekly)
})
Expand Down
4 changes: 3 additions & 1 deletion tests/testthat/test-estimate_secondary.R
Original file line number Diff line number Diff line change
Expand Up @@ -115,7 +115,9 @@ test_that("estimate_secondary successfully returns estimates when accumulating t
cases_weekly <- merge(
cases[, list(date, primary)], secondary_weekly, by = "date", all.x = TRUE
)
cases_weekly <- fill_missing(cases_weekly, na = "accumulate")
cases_weekly <- fill_missing(
cases_weekly, missing_obs = "accumulate", obs_column = "secondary"
)
inc_weekly <- estimate_secondary(cases_weekly,
delays = delay_opts(
LogNormal(
Expand Down

0 comments on commit ceb13e7

Please sign in to comment.