# Load the required packages.library(kableExtra)library(dplyr)library(readstata13)# Read in the data.student_data <-read.dta13("LawSchoolChecks.dta")# Calculate the GPA for each student.final_gpa <- student_data %>%group_by(Student) %>%summarise(TotalPointsSum =sum(TotalPoints), GPA =format(round(sum(Points * Credits) /sum(Credits) ,digits =4),nsmall=4),TotalCredits =sum(Credits))# Print student's total points, GPA and total credits earned.print(kable(final_gpa,caption ="Student's Cummulative GPA"))