propensity

The goal of propensity is to calculate propensity scores and weights for a wide variety of research questions.

propensity is under very early development.

Installation

You can install the development version of propensity from GitHub with:

# install.packages("devtools")
devtools::install_github("r-causal/propensity")

Example

propensity is under very early development. Currently, it supports calculating propensity score weights for binary exposures:

library(propensity)
propensity_scores <- c(.1, .3, .4, .3)
x <- c(0, 0, 1, 0)

# ATE weights
wt_ate(propensity_scores, .exposure = x)
#> [1] 1.111111 1.428571 2.500000 1.428571

# Stabilized ATE weights
wt_ate(propensity_scores, .exposure = x, stabilize = TRUE)
#> [1] 0.2777778 0.3571429 0.6250000 0.3571429

# ATO weights
wt_ato(propensity_scores, .exposure = x)
#> [1] 0.1 0.3 0.6 0.3