adjusted test calls

Boehringer-Ingelheim · Oct 13, 2023 · 9eba0fc · 9eba0fc
1 parent cce6014
commit 9eba0fc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: BayesianMCPMod
 Title: Bayesian MCPMod
-Version: 0.1.3-1
+Version: 0.1.3-2
 Authors@R: c(
     person("Sebastian", "Bossert",
            role = "aut",

diff --git a/tests/testthat/test-bootstrapping.R b/tests/testthat/test-bootstrapping.R
@@ -134,18 +134,18 @@ posterior   = post_observed,
     posterior   = post_observed,
     simple      = FALSE)
 
-  result_simple <- getBootsrapBands(fit_simple)
-  result <- getBootsrapBands(fit)
+  result_simple <- getBootstrapBands(fit_simple)
+  result <- getBootstrapBands(fit)
   expect_type(result_simple, "list")
   expect_type(result, "list")
 
-  result_2_simple <- getBootsrapBands(fit_simple, n_samples = 1e2, alpha = c(0.1, 0.9), avg_fit = FALSE, dose_seq = c(1, 2, 3))
-  result_2 <- getBootsrapBands(fit, n_samples = 1e2, alpha = c(0.1, 0.9), avg_fit = FALSE, dose_seq = c(1, 2, 3))
+  result_2_simple <- getBootstrapBands(fit_simple, n_samples = 1e2, alpha = c(0.1, 0.9), avg_fit = FALSE, dose_seq = c(1, 2, 3))
+  result_2 <- getBootstrapBands(fit, n_samples = 1e2, alpha = c(0.1, 0.9), avg_fit = FALSE, dose_seq = c(1, 2, 3))
   expect_type(result_2_simple, "list")
   expect_type(result_2, "list")
 
-  result_3_simple <- getBootsrapBands(fit_simple, dose_seq = NULL)
-  result_3 <- getBootsrapBands(fit, dose_seq = NULL)
+  result_3_simple <- getBootstrapBands(fit_simple, dose_seq = NULL)
+  result_3 <- getBootstrapBands(fit, dose_seq = NULL)
   expect_type(result_3_simple, "list")
   expect_type(result_3, "list")
 })