diff --git a/tests/testthat/test-probability_contain.R b/tests/testthat/test-probability_contain.R index f365a3e..b91865a 100644 --- a/tests/testthat/test-probability_contain.R +++ b/tests/testthat/test-probability_contain.R @@ -96,7 +96,7 @@ test_that("probability_contain works with ", { od <- suppressMessages( epiparameter::epiparameter_db( disease = "SARS", - epi_dist = "offspring distribution", + epi_name = "offspring distribution", author = "Lloyd-Smith", single_epiparameter = TRUE ) diff --git a/tests/testthat/test-probability_epidemic.R b/tests/testthat/test-probability_epidemic.R index 2abbed4..2601f26 100644 --- a/tests/testthat/test-probability_epidemic.R +++ b/tests/testthat/test-probability_epidemic.R @@ -99,7 +99,7 @@ test_that("probability_epidemic works with ", { od <- suppressMessages( epiparameter::epiparameter_db( disease = "SARS", - epi_dist = "offspring distribution", + epi_name = "offspring distribution", author = "Lloyd-Smith", single_epiparameter = TRUE ) diff --git a/tests/testthat/test-proportion_cluster_size.R b/tests/testthat/test-proportion_cluster_size.R index e009c01..8e3b7ee 100644 --- a/tests/testthat/test-proportion_cluster_size.R +++ b/tests/testthat/test-proportion_cluster_size.R @@ -89,7 +89,7 @@ test_that("proportion_cluster_size works with ", { od <- suppressMessages( epiparameter::epiparameter_db( disease = "SARS", - epi_dist = "offspring distribution", + epi_name = "offspring distribution", author = "Lloyd-Smith", single_epiparameter = TRUE ) diff --git a/tests/testthat/test-proportion_transmission.R b/tests/testthat/test-proportion_transmission.R index 725d0c8..d579740 100644 --- a/tests/testthat/test-proportion_transmission.R +++ b/tests/testthat/test-proportion_transmission.R @@ -183,7 +183,7 @@ test_that("proportion_transmission works with ", { od <- suppressMessages( epiparameter::epiparameter_db( disease = "SARS", - epi_dist = "offspring distribution", + epi_name = "offspring distribution", author = "Lloyd-Smith", single_epiparameter = TRUE ) diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R index 2947260..15fed17 100644 --- a/tests/testthat/test-utils.R +++ b/tests/testthat/test-utils.R @@ -2,7 +2,7 @@ if (requireNamespace("epiparameter", quietly = TRUE)) { od <- suppressMessages( epiparameter::epiparameter_db( disease = "SARS", - epi_dist = "offspring distribution", + epi_name = "offspring distribution", author = "Lloyd-Smith", single_epiparameter = TRUE ) @@ -29,7 +29,7 @@ test_that("get_param fails as expected with incorrect parameters", { od <- suppressMessages( epiparameter::epiparameter_db( disease = "COVID-19", - epi_dist = "incubation period", + epi_name = "incubation period", author = "Linton", single_epiparameter = TRUE ) diff --git a/vignettes/proportion_transmission.Rmd b/vignettes/proportion_transmission.Rmd index 173829c..b4c6c76 100644 --- a/vignettes/proportion_transmission.Rmd +++ b/vignettes/proportion_transmission.Rmd @@ -88,7 +88,7 @@ To show the proportion of transmission using both methods we can load the estima ```{r, load-offspring-dist} library(epiparameter) offspring_dists <- epiparameter_db( - epi_dist = "offspring distribution" + epi_name = "offspring distribution" ) ``` diff --git a/vignettes/superspreading.Rmd b/vignettes/superspreading.Rmd index 75b96ba..c1c2836 100644 --- a/vignettes/superspreading.Rmd +++ b/vignettes/superspreading.Rmd @@ -119,12 +119,12 @@ diseases and evaluate how likely they are to cause epidemics. ```{r, epiparam} sars <- epiparameter_db( disease = "SARS", - epi_dist = "offspring distribution", + epi_name = "offspring distribution", single_epiparameter = TRUE ) evd <- epiparameter_db( disease = "Ebola Virus Disease", - epi_dist = "offspring distribution", + epi_name = "offspring distribution", single_epiparameter = TRUE ) ```