left <- data.frame(
id = 1:5,
treatment = 1,
age = c(25, 30, 35, 40, 45)
)
right <- data.frame(
id = 6:10,
treatment = 0,
age = c(24, 29, 36, 41, 44)
)
result <- match_couples(left, right, vars = "age")
couplr::augment(result, left, right)
Run the code above in your browser using DataLab