data(example_data)
require(dplyr)
require(magrittr)
example_data %>%
mutate(diabetes_merged = coalesce(diabetes_type, diabetes)) %>%
select(starts_with("diabetes")) ->
merged_data
compare_info_content(merged_data$diabetes,
merged_data$diabetes_type,
merged_data$diabetes_merged) %>%
compare_info_content_plt()
Run the code above in your browser using DataLab