Data

# 1. Data
inovatif <- c(2650, 2750, 2500, 2800, 2670, 2730, 2530, 2770, 2700)
klasik    <- c(2600, 2700, 2450, 2730, 2530, 2670, 2550)
alpha     <- 0.01

Uji t dua rata‑raa

# 2. Uji t dua rata‑rata (one‑sided: inovatif > klasik)
hasil_uji <- t.test(
  x          = inovatif,
  y          = klasik,
  alternative= "greater",
  var.equal  = TRUE,
  conf.level = 1 - alpha
)

Ringkasan Hasil

# 3. Ringkas hasil via broom
tidy_res <- tidy(hasil_uji) %>%
  rename(
    mean_diff  = estimate,
    t_stat     = statistic,
    df         = parameter,
    p_value    = p.value,
    conf_low   = conf.low,
    conf_high  = conf.high
  ) %>%
  mutate(
    mean1      = mean(inovatif),
    mean2      = mean(klasik),
    conf.level = paste0((1 - alpha)*100, "%")
  )

Menampilkan Tabel

# 4. Cetak tabel ringkas
tidy_res %>%
  select(
    method, mean1, mean2, mean_diff,
    t_stat, df, p_value, conf_low, conf_high, conf.level
  ) %>%
  kable(
    digits = 2,
    caption = "Hasil Uji T Dua Rata‑rata (Inovatif > Klasik)"
  )
Hasil Uji T Dua Rata‑rata (Inovatif > Klasik)
method mean1 mean2 mean_diff t_stat df p_value conf_low conf_high conf.level
Two Sample t-test 2677.78 2604.29 73.49 1.42 14 0.09 -62.37 Inf 99%

Interpretasi Hasil

cat("**Hipotesis Nol (H0):** μ_inovatif ≤ μ_klasik\n")
## **Hipotesis Nol (H0):** μ_inovatif ≤ μ_klasik
cat("**Hipotesis Alternatif (H1):** μ_inovatif > μ_klasik\n\n")
## **Hipotesis Alternatif (H1):** μ_inovatif > μ_klasik
cat(sprintf("- Rata‑rata Metode Inovatif : %.2f siklus\n", tidy_res$mean1))
## - Rata‑rata Metode Inovatif : 2677.78 siklus
cat(sprintf("- Rata‑rata Metode Klasik    : %.2f siklus\n", tidy_res$mean2))
## - Rata‑rata Metode Klasik    : 2604.29 siklus
cat(sprintf("- Selisih mean (μ₁−μ₂)       : %.2f siklus\n\n", tidy_res$mean_diff))
## - Selisih mean (μ₁−μ₂)       : 73.49 siklus
cat(sprintf("- Statistik t                : %.4f\n", tidy_res$t_stat))
## - Statistik t                : 1.4197
cat(sprintf("- Derajat bebas (df)         : %.0f\n", tidy_res$df))
## - Derajat bebas (df)         : 14
cat(sprintf("- P‑value                    : %.4f\n", tidy_res$p_value))
## - P‑value                    : 0.0888
cat(sprintf("- Interval kepercayaan %s   : [%.2f, %.2f]\n\n",
            tidy_res$conf.level, tidy_res$conf_low, tidy_res$conf_high))
## - Interval kepercayaan 99%   : [-62.37, Inf]
if (tidy_res$p_value <= alpha) {
  cat("**Keputusan:** Tolak H₀  \n",
      "Terdapat bukti statistik (α = 1%) bahwa Metode Inovatif\n",
      "memberikan ketahanan abrasi lebih tinggi dibanding Metode Klasik.\n")
} else {
  cat("**Keputusan:** Gagal tolak H₀  \n",
      "Tidak terdapat bukti cukup (α = 1%) bahwa Metode Inovatif\n",
      "lebih unggul dibanding Metode Klasik.\n")
}
## **Keputusan:** Gagal tolak H₀  
##  Tidak terdapat bukti cukup (α = 1%) bahwa Metode Inovatif
##  lebih unggul dibanding Metode Klasik.