Deskripsi Data

Data yang digunakan adalah Student Performance Data dari Kaggle. Sumber Dataset: Student Performance Dataset di Kaggle

# 1. Read Data
student_data <- read.csv("student_data.csv")

# 2. Summary (Mean, Median, Min, Max, dll)
summary(student_data$G3)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.00    8.00   11.00   10.42   14.00   20.00
# 3. Modus
tabel_g3 <- table(student_data$G3)
modus_g3 <- names(tabel_g3)[tabel_g3 == max(tabel_g3)]
cat("Modus dari G3 adalah:", modus_g3)
## Modus dari G3 adalah: 10
# 4. Pengelompokan Data
tabel_ringkasan <- aggregate(G3 ~ studytime, data = student_data, FUN = mean)
print(tabel_ringkasan)
##   studytime       G3
## 1         1 10.04762
## 2         2 10.17172
## 3         3 11.40000
## 4         4 11.25926
# 5. Histogram
hist(student_data$G3,
     main = "Histogram Nilai Akhir Siswa (G3)",
     xlab = "Nilai G3",
     ylab = "Frekuensi",
     col = "skyblue",
     border = "black")