library("matchatr")
df <- data.frame(case = c(1, 0, 1, 0), x = c(1, 0, 1, 0))
print(matcha(df, outcome = "case", exposure = "x", design = unmatched_cc()))<matchatr_fit>
Design: Unmatched case-control
Estimator: logistic (engine: glm_logistic)
Outcome: case
Exposure: x
Confounders: none
N: 4 (cases: 2, controls: 2)