R 코드 봐주실 분

first<-c(5,5,4,5,4,5,3.2.1,1,1,5,4,5) second<-c(3,3,3,4,5,5,4,5,1,2,1,1) third<-c(2,1,2,3,4,5,5,4,5,4,3,2,1,3) fourth<-c(1,1,2,5,4,5,5,3,3,4,5,4,2) professor<-c(5,4,3,5,4,1,2,2,3,4,5,5) grade<-c(rep("first",14),rep("second",12),rep("third",14),rep("fourth",13),rep("professor",12)) expect<-c(first, se...