move gompertz problem data to ssdtests

poissonconsulting · Sep 23, 2024 · 08dc8c1 · 08dc8c1
1 parent 3f2d70e
commit 08dc8c1
Showing 1 changed file with 0 additions and 12 deletions.
diff --git a/tests/testthat/test-gompertz.R b/tests/testthat/test-gompertz.R
@@ -19,15 +19,3 @@ test_that("gompertz", {
   set.seed(42)
   expect_equal(ssd_rgompertz(2), c(1.24208466660006, 1.32596518320944))
 })
-
-test_that("bootstrap gompertz with problem data", {
-  set.seed(99)
-  data <- data.frame(Conc = ssd_rgompertz(6, location = 0.6, shape = 0.07))
-  fit <- ssdtools::ssd_fit_dists(data, dists = "gompertz")
-  set.seed(99)
-  hc <- ssd_hc(fit,
-    ci = TRUE, nboot = 100, min_pboot = 0.8, ci_method = "weighted_arithmetic", multi_est = FALSE,
-    samples = TRUE
-  )
-  expect_snapshot_data(hc, "hc_prob")
-})