library(boot)
library(dplyr)
library(magrittr)
melanoma %>%
select(-time, -year) %>%
mutate(sex = factor(sex), ulcer = factor(ulcer)) %>%
mutate(status2 = ifelse(status == 2, 2, 4)) %>%
group_by(status, status2) %>%
splice
Run the code above in your browser using DataLab