path <- system.file("extdata", package = "tidyklips")
df <- getwklips(path = path, datatype = "stata")
df %>%
dplyr::group_by(jobseq) %>%
dplyr::summarise(count = dplyr::n()) %>%
dplyr::mutate(proportion = count / sum(count))
Run the code above in your browser using DataLab