test_that("Bootstrap-Prozess läuft erfolgreich", {
  
  # Erstelle ein Beispiel für ein bsw-Objekt
  set.seed(123)
  x <- rnorm(100, 50, 10)
  y <- rbinom(100, 1, exp(-4 + x * 0.04))
  
  fit <- aRD(formula = y ~ x, data = data.frame(y = y, x = x))
  
  # Teste die Ausführung von bootBSW
  result <- bootaRD(fit, ci_level = 0.95, R = 1000L)
  
  # Überprüfe, dass alle Bootstrap-Replikate erfolgreich durchgeführt wurden
  expect_true(is.numeric(result$boot_obj$t0))  # Sicherstellen, dass die Originalschätzungen berechnet wurden
  expect_equal(length(result$boot_obj$t[,1]), 1000)  # Sicherstellen, dass es 1000 Replikate gibt
  expect_gt(sum(complete.cases(result$boot_obj$t)), 950)  # Überprüfen, dass mindestens 95% erfolgreich sind
})