과제1

성적.txt 활용-행합계 추가, 필드명 추가, 출력

##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]    4    5    6
## [3,]    7    8    9

##   1열 2열 3열 행합계
## 1   1   2   3      6
## 2   4   5   6     15
## 3   7   8   9     24

과제2

과제1 연결 활용- 각 필드(열)별 평균 계산 행 추가, 행명 추가

각필드별 평균 barplot으로 시각화

##          1열 2열 3열 행합계
## 1행        1   2   3      6
## 2행        4   5   6     15
## 3행        7   8   9     24
## 각열평균   4   5   6     15

과제3

student.txt 활용-학번과 이름 제거, 과목별 평균 시각화

lapply()활용: pointbar<-as.numeric(lapply(student1.mean))

색상 초기화: colors <- c();

##   학번   이름 분반 국어 영어 수학
## 1    1 가민호    1   10   20   50
## 2    2 나민호    1   50   60   50
## 3    3 다민호    2   50   60   30
## 4    4 라민호    2   90   80   85
## 5    5 마민호    3   80   90   50

##   국어 영어 수학
## 1   10   20   50
## 2   50   60   50
## 3   50   60   30
## 4   90   80   85
## 5   80   90   50

## [1] "국영수 평균: "

## 국어 영어 수학 
##   56   62   53