example_data <- dplyr::tibble(id = 1:100, group1 = sample(c("a", "b", "c", "d"),
size = 100, replace = TRUE),
group2= sample(c("male", "female"),
size = 100, replace = TRUE))
example_data$group1[sample(1:100, size = 10)] <- NA # Replace 10 with missing
tab(example_data, group1, group2)
summary <- tab(example_data, group1, group2) # Save summary statistics as a tibble.
Run the code above in your browser using DataLab