data-raw/fci_chap04.R

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

#' Create data for table 4.2
#'
#' @return Dataframe
fci_tbl_04_02 <- function() {
  data.frame(
    term = c("EYT0", "EYT0", "EYT1", "EYT1", "RD", "RD",
                  "EYT0", "EYT1", "RD", "RR", "RR", "RR",
                  "RR*", "RR*", "RR*", "OR", "OR", "OR"),
    group = c("M0", "M1", "M0", "M1", "M0", "M1",
              "diff", "diff", "diff", "M0", "M1", "diff",
              "M0", "M1", "diff", "M0", "M1", "diff"),
    .estimate = c(0.784, 0.593, 0.793, 0.735, 0.01, 0.142,
            -0.191, -0.059, 0.132, 1.012, 1.239, 1.224,
            1.046, 1.533, 1.466, 1.059, 1.9, 1.794),
    .lower = c(0.770, 0.556, 0.773, 0.685, -0.015, 0.078,
            -0.230, -0.113, 0.064, 0.982, 1.127, 1.108,
            0.931, 1.24, 1.15, 0.914, 1.402, 1.279),
    .upper = c(0.797, 0.63, 0.813, 0.784, 0.034, 0.205,
            -0.152, -0.005, 0.2, 1.044, 1.361, 1.351,
            1.176, 1.896, 1.868, 1.227, 2.573, 2.514),
    .alpha = 0.05,
    .method = "norm")
}

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