part 3. question 3

part 3. question 3.R

 #question 3:

 completion_by_age <- traning_clean %>%

 mutate(

       age_bin = case_when(

              age >= 18 & age <= 25 ~ "18-25",
              age >= 26 & age <= 45 ~ "26-45",
              age >= 46 & age <= 65 ~ "46-65"

       )
 ) %>%

 filter(!is.na(age_bin)) %>%

 group_by(age_bin) %>%

 summarise(
   completion_rate = mean(program_status_clean == "Completed and Passed", na.rm = TRUE) * 100
 )

 print(completion_by_age)