# NOT RUN {
library(adheRenceRX)
library(dplyr)
toy_claims %>%
group_by(ID) %>%
propagate_date(.date = date, .days_supply = days_supply) %>%
identify_gaps() %>%
calculate_pdc()
#OR, one could group by the ID and episode of care like...
toy_claims %>%
group_by(ID) %>%
propagate_date(.date = date, .days_supply = days_supply) %>%
identify_gaps() %>%
rank_episodes(.permissible_gap = 30) %>%
ungroup() %>%
group_by(ID, episode) %>%
calculate_pdc()
# }
Run the code above in your browser using DataLab