# Data nilai tes siswa kelas A dan kelas B
kelasA <- c(70, 72, 68, 74, 77, 81, 78, 73, 75, 76, 72, 74, 79, 80, 69, 71, 74, 73, 76, 78)
kelasB <- c(65, 66, 64, 68, 70, 72, 67, 69, 71, 73, 70, 72, 74, 75, 69, 68, 70, 72, 74, 73)

# Uji normalitas kedua kelompok (prasyarat)
shapiro.test(kelasA)
shapiro.test(kelasB)

# Uji homogenitas varian (prasyarat)
var.test(kelasA, kelasB)

# Melakukan uji t dua sampel bebas dengan asumsi varians homogen
uji_t <- t.test(kelasA, kelasB, var.equal = TRUE)

# Menampilkan hasil uji
print(uji_t)

# Interpretasi hasil uji
cat("\nInterpretasi:\n")
if(uji_t$p.value < 0.05) {
  cat("Ada perbedaan signifikan rata-rata nilai antara dua kelas (p-value =", uji_t$p.value, ")\n")
} else {
  cat("Tidak ada perbedaan signifikan rata-rata nilai antara dua kelas (p-value =", uji_t$p.value, ")\n")
}
#===============================================================================
# Data nilai tes siswa kelas A dan kelas B (nilai mirip)
kelasA <- c(75, 76, 74, 75, 77, 78, 73, 74, 76, 75, 74, 75, 77, 76, 74, 75, 76, 75, 74, 75)
kelasB <- c(74, 75, 76, 75, 74, 76, 75, 75, 74, 75, 76, 75, 74, 75, 76, 74, 75, 76, 75, 74)

# Uji normalitas kedua kelompok
shapiro.test(kelasA)
shapiro.test(kelasB)

# Uji homogenitas varian
var.test(kelasA, kelasB)

# Uji t dua sampel bebas dengan asumsi varians homogen
uji_t <- t.test(kelasA, kelasB, var.equal = TRUE)

# Menampilkan hasil uji
print(uji_t)

# Interpretasi hasil uji
cat("\nInterpretasi:\n")
if (uji_t$p.value < 0.05) {
  cat("Ada perbedaan signifikan antara rata-rata dua kelas (p-value =", uji_t$p.value, ")\n")
} else {
  cat("Tidak ada perbedaan signifikan antara rata-rata dua kelas (p-value =", uji_t$p.value, ")\n")
}