Computing Total Anxiety Scores in Likert Scale Matrices Using Sapply, Lapply, and Apply in R