tests/testthat/test-print.R

In statsccpr/sensemakr:

context("Checking print")

test_that("Test print", {
  # loads data
  data("darfur")

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

  # benchmark variables
  X = c("herder_dar", "female", "age", "pastvoted", "farmer_dar")

  # runs benchmarking etc
  sense <- sensemakr(model=model, treatment="directlyharmed", benchmarks=X)

  capture_output(interpret(sense))
  capture_output(interpret(sense, q = 0.5)) #throws warning
  capture_output(interpret(sense, q = 0.6)) #throws warning.

  capture_output(summary(sense)) #needs more output/ to be different from interpret().

})