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