Kasus 03

Perhitungan Manual

Download Perhitungan Manual Kasus 03

# --- Data & Parameter ---
sampel_COD <- c(84)  # hanya rata-rata, sampel mentah ga ada, jadi manual
x_bar <- 84          # rata-rata sampel
mu_0 <- 80           # nilai H0
s <- 9               # simpangan baku sampel
n <- 9               # ukuran sampel
alpha <- 0.05        # taraf nyata

# --- Hitung T-Statistic ---
SE <- s / sqrt(n)
t_hitung <- (x_bar - mu_0) / SE
df <- n - 1
t_kritis <- qt(1 - alpha, df)

# --- P-value ---
p_value <- 1 - pt(t_hitung, df)

# --- Output ---
cat("--- Hasil Uji & Interpretasi Lengkap ---\n\n")

## --- Hasil Uji & Interpretasi Lengkap ---

cat(sprintf("Rata-rata Sampel (x̄): %.2f\n", x_bar))

## Rata-rata Sampel (x̄): 84.00

cat(sprintf("Simpangan Baku Sampel (s): %.2f\n", s))

## Simpangan Baku Sampel (s): 9.00

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

## Ukuran Sampel (n): 9

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

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

cat("Hipotesis Nol (H0): Rata-rata kadar COD <= 80 mg/L\n")

## Hipotesis Nol (H0): Rata-rata kadar COD <= 80 mg/L

cat("Hipotesis Alternatif (H1): Rata-rata kadar COD > 80 mg/L\n")

## Hipotesis Alternatif (H1): Rata-rata kadar COD > 80 mg/L

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

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

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

## Tingkat Signifikansi (α): 0.050

cat(sprintf("T-Hitung (t-statistic): %.4f\n", t_hitung))

## T-Hitung (t-statistic): 1.3333

cat(sprintf("T-Kritis (t-critical): %.4f\n", t_kritis))

## T-Kritis (t-critical): 1.8595

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

## P-value: 0.1096

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

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

# --- Keputusan P-Value ---
cat("Keputusan berdasarkan P-Value:\n")

## Keputusan berdasarkan P-Value:

if (p_value <= alpha) {
  cat(sprintf("Karena P-value (%.4f) <= alpha (%.3f), maka Hipotesis Nol DITOLAK.\n", p_value, alpha))
} else {
  cat(sprintf("Karena P-value (%.4f) > alpha (%.3f), maka Hipotesis Nol GAGAL DITOLAK.\n", p_value, alpha))
}

## Karena P-value (0.1096) > alpha (0.050), maka Hipotesis Nol GAGAL DITOLAK.

# --- Keputusan T-Statistik ---
cat("\nKeputusan berdasarkan T-Statistik:\n")

## 
## Keputusan berdasarkan T-Statistik:

if (t_hitung > t_kritis) {
  cat(sprintf("Karena T-Hitung (%.4f) > T-Kritis (%.4f), maka Hipotesis Nol DITOLAK.\n", t_hitung, t_kritis))
} else {
  cat(sprintf("Karena T-Hitung (%.4f) <= T-Kritis (%.4f), maka Hipotesis Nol GAGAL DITOLAK.\n", t_hitung, t_kritis))
}

## Karena T-Hitung (1.3333) <= T-Kritis (1.8595), maka Hipotesis Nol GAGAL DITOLAK.

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

## 
## KESIMPULAN:

cat("Dengan tingkat kesalahan 5%, belum terdapat bukti statistik yang cukup kuat untuk menyimpulkan bahwa kadar COD rata-rata melebihi 80 mg/L.\n")

## Dengan tingkat kesalahan 5%, belum terdapat bukti statistik yang cukup kuat untuk menyimpulkan bahwa kadar COD rata-rata melebihi 80 mg/L.