data-raw/fci_chap07.R

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

#' Create data for table 7.2
#'
#' @return Dataframe
fci_tbl_07_02 <- function() {
  data.frame(
    model = c(
      "All",
      "Linear","Loglinear", "Logistic",
      "Linear","Loglinear", "Logistic",
      "Linear","Loglinear", "Logistic",
      "Linear","Loglinear", "Logistic"),
    term = c(
      "E(VL1|A=1)",
      "EY0A1", "EY0A1", "EY0A1",
      "RD", "RD", "RD",
      "RR", "RR", "RR",
      "OR", "OR", "OR"),
    Truth = c(0.199,
              0.559, 0.559, 0.559, -0.36, -0.36, -0.36,
              0.356, 0.356, 0.356, 0.196, 0.196, 0.196),
    .estimate = c(0.231,
            0.586, 0.577, 0.592, -0.355, -0.346, -0.362,
            0.394, 0.400, 0.390, 0.212, 0.22, 0.206),
    .lower = c(0.179,
            0.508, 0.498, 0.513, -0.441, -0.431, -0.447,
            0.309, 0.315, 0.306, 0.142, 0.149, 0.139),
    .upper = c(0.282,
            0.664, 0.656, 0.671, -0.270, -0.262, -0.276,
            0.500, 0.508, 0.496, 0.315, 0.325, 0.307),
    .alpha = 0.05,
    .method = "norm")
}

# fci_tbl_07_02 <- fci_tbl_07_02()
# usethis::use_data(fci_tbl_07_02, overwrite = TRUE)