test_that("Test auf korrekte Eingabevalidierung in bootaRD", {
  # 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 für falsches ci_level (kleiner als 0 oder größer als 1)
  expect_error(bootaRD(fit, ci_level = 0, R = 1000L), "ci_level")
  expect_error(bootaRD(fit, ci_level = 1, R = 1000L), "ci_level")
  
  # Teste für ungültiges R (kleiner als 1000)
  expect_error(bootaRD(fit, ci_level = 0.95, R = 500L), "Assertion on 'R' failed: Element 1 is not >= 1000.")
  expect_error(bootaRD(fit, ci_level = 0.95, R = 1000))
})