library(dplyr)
# Credit Card Default Data
head(ISLR::Default)
defaults <- ISLR::Default
defaults$id <- seq(NROW(defaults))
set.seed(1)
defaults[sample(seq(NROW(defaults)), 3), "student"] <- NA
set.seed(2)
defaults[sample(seq(NROW(defaults)), 10), "balance"] <- NA
sb <- defaults %>%
split_by(default)
sb %>%
compare_diag()
sb %>%
compare_diag(add_character = TRUE)
sb %>%
compare_diag(uniq_thres = 0.0005)
Run the code above in your browser using DataLab