Kasus_08

Kasus 08

Perhitungan Manual

Download Perhitungan Manual Kasus 08

# ====== UJI PROPORSI DUA SAMPEL - Z TEST (SATU ARAH KANAN) ======

# Langkah 1: Data
x1 <- 48
x2 <- 45
n1 <- 400
n2 <- 500
alpha <- 0.01

# Langkah 2: Proporsi sampel
p1 <- x1 / n1
p2 <- x2 / n2
p <- (x1 + x2) / (n1 + n2)
q <- 1 - p

# Langkah 3: Hitung statistik uji Z
se <- sqrt(p * q * (1/n1 + 1/n2))
z_hitung <- (p1 - p2) / se

# Langkah 4: Nilai Z kritis
z_kritis <- qnorm(1 - alpha)

# Langkah 5: P-value
p_value <- 1 - pnorm(z_hitung)

# --- Output Naratif ---
cat("--- Hasil Uji Proporsi Dua Sampel (Z-Test) ---\n\n")

## --- Hasil Uji Proporsi Dua Sampel (Z-Test) ---

cat(sprintf("Data: x1 = %d, n1 = %d (Tenso понижена)\n", x1, n1))

## Data: x1 = 48, n1 = 400 (Tenso понижена)

cat(sprintf("      x2 = %d, n2 = %d (Normopress)\n", x2, n2))

##       x2 = 45, n2 = 500 (Normopress)

cat(sprintf("Proporsi Sampel: p1 = %.3f, p2 = %.3f\n", p1, p2))

## Proporsi Sampel: p1 = 0.120, p2 = 0.090

cat(sprintf("Proporsi Gabungan: p = %.3f, q = %.3f\n", p, q))

## Proporsi Gabungan: p = 0.103, q = 0.897

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

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

cat("Hipotesis Nol (H0): p1 ≤ p2\n")

## Hipotesis Nol (H0): p1 ≤ p2

cat("Hipotesis Alternatif (H1): p1 > p2\n")

## Hipotesis Alternatif (H1): p1 > p2

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

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

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

## Taraf Signifikansi (α): 0.01

cat(sprintf("Statistik Uji Z: %.4f\n", z_hitung))

## Statistik Uji Z: 1.4692

cat(sprintf("Z Kritis (Zₐ = %.2f): %.4f\n", alpha, z_kritis))

## Z Kritis (Zₐ = 0.01): 2.3263

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

## P-value: 0.0709

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

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

# Keputusan berdasarkan Z kritis
cat("Keputusan berdasarkan Z Statistik:\n")

## Keputusan berdasarkan Z Statistik:

if (z_hitung > z_kritis) {
  cat(sprintf(" Karena Z-hitung (%.4f) > Z-kritis (%.4f), maka H0 DITOLAK.\n", z_hitung, z_kritis))
} else {
  cat(sprintf(" Karena Z-hitung (%.4f) ≤ Z-kritis (%.4f), maka H0 GAGAL DITOLAK.\n", z_hitung, z_kritis))
}

##  Karena Z-hitung (1.4692) ≤ Z-kritis (2.3263), maka H0 GAGAL DITOLAK.

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

## 
## KESIMPULAN:

if (z_hitung > z_kritis) {
  cat("Dengan tingkat signifikansi 1%, terdapat cukup bukti statistik bahwa Tenso понижена memiliki tingkat insiden batuk kering yang lebih tinggi daripada Normopress.\n")
} else {
  cat("Dengan tingkat signifikansi 1%, belum terdapat cukup bukti untuk menyatakan bahwa Tenso понижена memiliki tingkat insiden batuk kering yang lebih tinggi dibandingkan Normopress.\n")
}

## Dengan tingkat signifikansi 1%, belum terdapat cukup bukti untuk menyatakan bahwa Tenso понижена memiliki tingkat insiden batuk kering yang lebih tinggi dibandingkan Normopress.