Pendahuluan

Analisis ini dilakukan untuk mengetahui rata-rata kecepatan unduh 25 titik akses WiFi kampus. Data dianalisis menggunakan RStudio dengan menghitung rata-rata, standar deviasi, dan interval kepercayaan 90%, 95%, serta 99%. Analisis ini juga digunakan untuk melihat apakah rata-rata kecepatan WiFi telah memenuhi standar minimum 20 Mbps.

Data Kecepatan WiFi

Data yang digunakan terdiri dari 25 sampel kecepatan unduh WiFi dalam satuan Mbps.

data_wifi <- c(18.2, 21.5, 19.8, 23.1, 17.6, 
               20.4, 22.9, 16.8, 19.1, 24.3, 
               18.7, 21.0, 20.2, 17.9, 23.6, 
               19.4, 22.1, 18.0, 20.9, 21.7, 
               16.5, 19.9, 23.4, 18.3, 21.2)

length(data_wifi)
## [1] 25

Mean dan Standar Deviasi

mean_wifi <- mean(data_wifi)
sd_wifi <- sd(data_wifi)

mean_wifi
## [1] 20.26
sd_wifi
## [1] 2.217732

Penjelasan:

Rata-rata (Mean): Sebesar 20.26 Mbps.

Standar Deviasi: Sebesar 2.22 Mbps, yang mengindikasikan sebaran variasi kecepatan antartitik akses terhadap rata-ratanya.

Interval Kepercayaan 95%

t.test(data_wifi, conf.level = 0.95)
## 
##  One Sample t-test
## 
## data:  data_wifi
## t = 45.677, df = 24, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
##  19.34457 21.17543
## sample estimates:
## mean of x 
##     20.26

Berdasarkan hasil perhitungan, interval kepercayaan 95% berada pada 19.34 - 21.18 Mbps. Artinya, kita 95% yakin bahwa rata-rata kecepatan unduh seluruh populasi WiFi kampus berada dalam rentang tersebut.

Perbandingan Interval Kepercayaan

Untuk melihat pengaruh tingkat kepercayaan terhadap lebar interval, dilakukan perhitungan dengan tingkat kepercayaan 90%, 95%, dan 99%.

tingkat <- c(0.90, 0.95, 0.99)
hasil <- sapply(tingkat, function(x) t.test(data_wifi, conf.level = x)$conf.int)

tabel_perbandingan <- data.frame(
  Kepercayaan = c("90%", "95%", "99%"),
  Batas_Bawah = round(hasil[1, ], 2),
  Batas_Atas = round(hasil[2, ], 2),
  Lebar_Interval = round(hasil[2, ] - hasil[1, ], 2)
)

tabel_perbandingan
##   Kepercayaan Batas_Bawah Batas_Atas Lebar_Interval
## 1         90%       19.50      21.02           1.52
## 2         95%       19.34      21.18           1.83
## 3         99%       19.02      21.50           2.48

Kesimpulan: Semakin tinggi tingkat kepercayaan yang digunakan (dari 90% ke 99%), maka rentang interval kepercayaan akan menjadi semakin lebar.

Margin of Error (ME)

hasil_95 <- t.test(data_wifi, conf.level = 0.95)
margin_error <- diff(hasil_95$conf.int) / 2
round(margin_error, 2)
## [1] 0.92

Penjelasan: Hasil perhitungan menunjukkan bahwa Margin of Error pada tingkat kepercayaan 95% adalah sebesar 0.92 Mbps. Hal ini berarti rata-rata sampel sebesar 20.26 Mbps memiliki rentang ketidakpastian (penyimpangan maksimum) sebesar ± 0.92 Mbps dalam menduga rata-rata populasi.

Analisis Risiko Galat Tipe I dan Tipe II

Dalam analisis ini digunakan standar minimum kecepatan unduh WiFi sebesar 20 Mbps. Rata-rata dari 25 sampel adalah 20.26 Mbps. Keputusan manajemen kampus memiliki dua potensi kesalahan: