Causality, Causal Inference, Backdoor, Frontdoor, Instrumental Variable.
paper or this blog post), and then match participants based on those probabilities. ps_fit <- glm(x~bd, data = df, family = “binomial”) df$ps_score <- ps_fit$fitted.values logit <- stats::qlogis # rename the function for clarity greedymatch <- Match(Tr = df$x, M = 1, X = logit(df[,”ps_score”]),