Kasus 04

Kasus 04

Perhitungan Manual

Download Perhitungan Manual Kasus 04

# ====== UJI CHI-SQUARE UNTUK RAGAM (SATU ARAH KANAN) ======

# Langkah 1: Data
data_skor <- c(35, 40, 48, 55, 60, 65, 70, 75, 82, 88, 95, 100)
sigma2_hipotesis <- 150
alpha <- 0.10

# Langkah 2: Statistik Sampel
n <- length(data_skor)
df <- n - 1
s2 <- var(data_skor)
chi2_hitung <- df * s2 / sigma2_hipotesis

# Langkah 3: Nilai Kritis & P-value
chi2_kritis <- qchisq(1 - alpha, df)
p_value <- 1 - pchisq(chi2_hitung, df)

# --- Output Naratif ---
cat("--- Hasil Uji Ragam (Chi-Square) ---\n\n")

## --- Hasil Uji Ragam (Chi-Square) ---

cat("Data Sampel:", paste(data_skor, collapse = ", "), "\n")

## Data Sampel: 35, 40, 48, 55, 60, 65, 70, 75, 82, 88, 95, 100

cat(sprintf("Ukuran Sampel (n): %d\n", n))

## Ukuran Sampel (n): 12

cat(sprintf("Derajat Bebas (df): %d\n", df))

## Derajat Bebas (df): 11

cat(sprintf("Rata-rata Sampel: %.2f\n", mean(data_skor)))

## Rata-rata Sampel: 67.75

cat(sprintf("Ragam Sampel (s²): %.4f\n", s2))

## Ragam Sampel (s²): 446.9318

cat("--------------------------------------------\n")

## --------------------------------------------

cat("Hipotesis Nol (H₀): σ² ≤ 150\n")

## Hipotesis Nol (H₀): σ² ≤ 150

cat("Hipotesis Alternatif (H₁): σ² > 150\n")

## Hipotesis Alternatif (H₁): σ² > 150

cat("--------------------------------------------\n")

## --------------------------------------------

cat(sprintf("Tingkat Signifikansi (α): %.2f\n", alpha))

## Tingkat Signifikansi (α): 0.10

cat(sprintf("Statistik Uji Chi-Square: %.4f\n", chi2_hitung))

## Statistik Uji Chi-Square: 32.7750

cat(sprintf("Chi-Square Kritis (α = %.2f, df = %d): %.4f\n", alpha, df, chi2_kritis))

## Chi-Square Kritis (α = 0.10, df = 11): 17.2750

cat(sprintf("P-value: %.4f\n", p_value))

## P-value: 0.0006

cat("--------------------------------------------\n\n")

## --------------------------------------------

# Keputusan berdasarkan Statistik
cat("Keputusan Berdasarkan Statistik Uji:\n")

## Keputusan Berdasarkan Statistik Uji:

if (chi2_hitung > chi2_kritis) {
  cat(sprintf(" Karena χ²-Hitung (%.4f) > χ²-Kritis (%.4f), maka H₀ DITOLAK.\n", chi2_hitung, chi2_kritis))
} else {
  cat(sprintf(" Karena χ²-Hitung (%.4f) ≤ χ²-Kritis (%.4f), maka H₀ GAGAL DITOLAK.\n", chi2_hitung, chi2_kritis))
}

##  Karena χ²-Hitung (32.7750) > χ²-Kritis (17.2750), maka H₀ DITOLAK.

# Kesimpulan Akhir
cat("\nKESIMPULAN:\n")

## 
## KESIMPULAN:

if (chi2_hitung > chi2_kritis) {
  cat("Dengan tingkat signifikansi 10%, terdapat cukup bukti untuk menyatakan bahwa ragam skor sikap masyarakat LEBIH BESAR dari 150.\n")
} else {
  cat("Dengan tingkat signifikansi 10%, TIDAK terdapat cukup bukti untuk menyatakan bahwa ragam lebih besar dari 150.\n")
}

## Dengan tingkat signifikansi 10%, terdapat cukup bukti untuk menyatakan bahwa ragam skor sikap masyarakat LEBIH BESAR dari 150.