resultsLsac <- resultsLsac %>%
mutate(
PctAccepted = 100 * Unique_Accepts / NumStudents,
MatricRate = 100 * Unique_Matric / NumStudents,
MatricVsAdmit = 100 * Unique_Matric / `Matric+Admit`
)
resultsLsac
# A tibble: 5 × 14
Year NumStudents Unique_Accepts Unique_Matric `Matric+Admit` Admit Matric
<chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 2019/2020 10 8 8 16 24 8
2 2020/2021 36 25 25 50 69 25
3 2021/2022 29 21 19 40 72 19
4 2022/2023 32 22 6 28 46 20
5 2023/2024 44 36 33 69 79 33
# ℹ 7 more variables: Other <dbl>, `W/D` <dbl>, GrandTotal <dbl>, ...11 <lgl>,
# PctAccepted <dbl>, MatricRate <dbl>, MatricVsAdmit <dbl>
