Create highschool_admission.R