각 학생의 세과목 합계 및 평균은 구했는데, 각 과목별 합계 및 평균 구하는 방법 부탁드립니다.

number <- seq(1:3)
name <- c("정우성", "김철수", "송중기")
kor <- c(80, 60, 90)
eng <- c(70, 50, 100)
mat <- c(95, 70, 95)
grade <- c("B", "D", "A")
stuInfo <- data.frame(번호 = number, 이름 = name, 국어 = kor, 영어 = eng, 수학 = mat, 등급 = grade)
# 객체의 열에 이름주기
sumStu <- kor+eng+mat  # 각 학생의 세과목 합계
print(sumStu)
avgStu <- sumStu/3  # 각 학생의 세과목 평균
print(avgStu)