sq_data %>% select("PersonId", "Date", "Meetings_with_manager_1_on_1", "Organization") %>% group_by(PersonId)  %>% mutate(total=sum(Meetings_with_manager_1_on_1), weeks=n())  %>% mutate(Frequency_of_1_on_1_with_manager = (1 - (total/weeks))) %>%  create_dist(metric="Frequency_of_1_on_1_with_manager", hrvar="Organization", cut = c(.1, .25, 5))