# \donttest{
if (requireNamespace("ggplot2", quietly = TRUE)) {
set.seed(42)
left <- data.frame(id = 1:10, age = rnorm(10, 45, 10),
income = rnorm(10, 50000, 15000))
right <- data.frame(id = 11:30, age = rnorm(20, 47, 10),
income = rnorm(20, 52000, 15000))
result <- match_couples(left, right, vars = c("age", "income"))
bal <- balance_diagnostics(result, left, right, vars = c("age", "income"))
ggplot2::autoplot(bal)
}
# }
Run the code above in your browser using DataLab