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, second, third, fourth, professor)
aov=aov(expect~grade)
summary(aov)

아노바인데 자꾸 문제있다고 거절당합니다