## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
paper_treatment <- c(0L, 1L, 1L, 0L)
package_treatment <- 1L - paper_treatment
data.frame(paper_treatment, package_treatment)

## -----------------------------------------------------------------------------
package_result <- data.frame(estimate = 2, lower = 1, upper = 3, SD = 0.5)
original_contrast <- data.frame(
  estimate = -package_result$estimate,
  lower = -package_result$upper,
  upper = -package_result$lower,
  SD = package_result$SD
)
original_contrast