#Data
NIM<-c(123,124,125,126,127,128,129);NIM
## [1] 123 124 125 126 127 128 129
Nama<-c("Ou","Fog","Ilo","Vey","Jo","Ily","Av");Nama
## [1] "Ou" "Fog" "Ilo" "Vey" "Jo" "Ily" "Av"
Semester<-c(1,3,1,3,5,5,3);Semester
## [1] 1 3 1 3 5 5 3
Skor<-c(7,8,8,9,6,7,7);Skor
## [1] 7 8 8 9 6 7 7
Peserta <- cbind.data.frame(NIM,Nama,Semester,Skor); Peserta
## NIM Nama Semester Skor
## 1 123 Ou 1 7
## 2 124 Fog 3 8
## 3 125 Ilo 1 8
## 4 126 Vey 3 9
## 5 127 Jo 5 6
## 6 128 Ily 5 7
## 7 129 Av 3 7
summary(Skor)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 6.000 7.000 7.000 7.429 8.000 9.000
max(Peserta$Skor)
## [1] 9
hist(Peserta$Semester, main="Data Peserta", col = "lightblue")
boxplot(Peserta$Skor, main="Plot Boxplot", col="lightpink")
