tests/testthat/test-meas_effect_cond.R

In FrankLef/fciR: Data and functions used with Fundamentals of Causal Inference by Babette Brumback

test_that("meas_effect_cond", {
  data("whatifdat")
  data <- whatifdat

  out <- meas_effect_cond(data, formula = Y ~ `T` + A + H,
                          exposure.name = "T", confound.names = "A",
                          condition.names = "H")
  # cat("\n", "out", "\n")
  # print(out)
  # cat("\n")

  target <- c("P0" = 0.77214651, "P1" = 0.73008627, "RD" = -0.04206024,
              "logRR" = -0.05601160, "logRR*" = -0.16939955,
              "logOR" = -0.22541115)
  target <- data.frame(
    term = names(target),
    estimate = unname(target),
    std.err = NA_real_
  )
  # cat("\n", "target", "\n")
  # print(target)
  # cat("\n")

  expect_identical(names(out), names(target))
  expect_identical(out$term, target$term)
  expect_lt(sum(abs(out$estimate - target$estimate)), 1e-6)
})