library("matchatr")
set.seed(1)
df <- data.frame(case = rep(c(1, 0), each = 100), x = rbinom(200, 1, 0.4))
fit <- matcha(df, outcome = "case", exposure = "x", design = unmatched_cc())
tidy(contrast(fit, type = "or")) term estimate std.error type conf.low conf.high
<char> <num> <num> <char> <num> <num>
1: x 1.131579 0.324955 or 0.6445338 1.986662