df <- data.frame(
stat_name = c("n", "max", "min", rep(c("n", "N", "p"), times = 2)),
context = rep(c("continuous", "hierarchical", "categorical"), each = 3),
stat_variable = rep(c("a", "b", "c"), each = 3)
) |>
dplyr::bind_rows(
data.frame(
stat_name = "n",
context = "total_n",
stat_variable = "d"
)
)
prep_big_n(
df,
vars = c("b", "c")
)
Run the code above in your browser using DataLab