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)
mean(data_wifi)
## [1] 20.26
sd(data_wifi)
## [1] 2.217732
n <- length(data_wifi)
xbar <- mean(data_wifi)
s <- sd(data_wifi)
se <- s / sqrt(n)
E <- qt(0.975, df = n - 1) * se
lower <- xbar - E
upper <- xbar + E
round(c(ME = E, Lower = lower, Upper = upper), 3)
## ME Lower Upper
## 0.915 19.345 21.175
# Interval Kepercayaan 90%
E90 <- qt(0.95, df = n - 1) * se
lower90 <- xbar - E90
upper90 <- xbar + E90
# Interval Kepercayaan 99%
E99 <- qt(0.995, df = n - 1) * se
lower99 <- xbar - E99
upper99 <- xbar + E99
# Perbandingan Interval Kepercayaan 90%, 95%, dan 99%
round(rbind(
"90%" = c(ME = E90, Lower = lower90, Upper = upper90),
"95%" = c(ME = E, Lower = lower, Upper = upper),
"99%" = c(ME = E99, Lower = lower99, Upper = upper99)
), 3)
## ME Lower Upper
## 90% 0.759 19.501 21.019
## 95% 0.915 19.345 21.175
## 99% 1.241 19.019 21.501
Berdasarkan hasil perhitungan, interval kepercayaan 90% memiliki rentang [19.501; 21.019] Mbps, interval kepercayaan 95% memiliki rentang [19.345; 21.175] Mbps, dan interval kepercayaan 99% memiliki rentang [19.019; 21.501] Mbps
Semakin tinggi tingkat kepercayaan yang digunakan, semakin besar margin of error sehingga interval kepercayaan menjadi semakin lebar. Sebaliknya, semakin rendah tingkat kepercayaan, interval yang dihasilkan menjadi lebih sempit
Pada tingkatkepercayaan 95%, diperoleh margin of error sebesar 0.915 Mbps. Artinya, estimasi rata rata kecepatan unduh wifi kampus memiliki batas kesalahan sebesar kurang lebih 0.915 Mbps dari rata rata sampel sebesar 20.26 Mbps
Dalam pengambilan keputusan apakah kecepatan WiFi kampus sudah memenuhi standar minimum 20 Mbps, terdapat dua kemungkinan kesalahan:
Galat Tipe I: Manajemen menyimpulkan bahwa kecepatan WiFi kampus sudah memenuhi standar minimum 20 Mbps, padahal sebenarnya belum memenuhi standar
Galat Tipe II: Manajemen menyimpulkan bahwa kecepatan WiFi kampus belum memenuhi standar minimum 20 Mbps, padahal sebenarnya sudah memenuhi standar