tests/testthat/test-04-extreme.R

In sensemakr: Sensitivity Analysis Tools for Regression Models

context("Tests for Extreme Plot")



test_that("extreme plot", {

  lm.out  <- lm(peacefactor ~ directlyharmed + age + farmer_dar +
                  herder_dar + pastvoted + hhsize_darfur + female + village, data = darfur)

  expect_invisible(ovb_extreme_plot(estimate = 2, se = 0.5, dof = 200))

  expect_invisible(ovb_extreme_plot(estimate = 2, se = 0.5, dof = 200, r2d = 0.2))

  expect_invisible(ovb_extreme_plot(lm.out, treatment = "directlyharmed"))

  expect_invisible(ovb_extreme_plot(lm.out, treatment = "directlyharmed",
                   benchmark_covariates = "female"))

  expect_invisible(ovb_extreme_plot(lm.out, treatment = "directlyharmed",
                   benchmark_covariates = "female",
                   kd = 1:3))

  expect_invisible(ovb_extreme_plot(formula = peacefactor ~ directlyharmed + age + farmer_dar +
                                      herder_dar + pastvoted + hhsize_darfur + female + village,
                                    data = darfur,
                                    treatment = "directlyharmed",
                                    benchmark_covariates = "female",
                                    kd = 1:3))

})