jumlah_komentar <- "Diskrit"
jumlah_komentar
## [1] "Diskrit"
Jumlah komentar per unggahan termasuk variabel diskrit karena berupa jumlah yang dapat dihitung satu per satu, misalnya 1, 2, 3, dan seterusnya.
durasi_video <- "Kontinu"
durasi_video
## [1] "Kontinu"
Durasi video yang ditonton termasuk variabel kontinu karena merupakan hasil pengukuran waktu dan secara konsep dapat memiliki nilai pecahan, misalnya 10,5 detik atau 10,25 detik.
n <- 10
p <- 0.25
peluang_2 <- dbinom(2, size = n, prob = p)
mean_binom <- n*p
sd_binom <- sqrt(n * p *(1 - p))
peluang_2
## [1] 0.2815676
mean_binom
## [1] 2.5
sd_binom
## [1] 1.369306
Berdasarkan perhitungan menggunakan distribusi Binomial, peluang tepat 2 dari 10 pengguna mengklik iklan adalah sebesar 28,16%. Nilai rata-rata jumlah pengguna yang mengklik adalah 2,5 orang, dengan standar deviasi sebesar 1,37.
lambda <- 8
peluang_5 <- dpois(5, lambda)
peluang_lebih_12 <- 1 - ppois(12, lambda)
peluang_5
## [1] 0.09160366
peluang_lebih_12
## [1] 0.0637972
Berdasarkan perhitungan menggunakan distribusi Poisson, peluang server menerima tepat 5 upload foto dalam satu menit adalah sebesar 9,16%. Sementara itu, peluang server menerima lebih dari 12 upload foto dalam satu menit adalah sebesar 6,38%.
#4. Distribusi Normal
mu <- 3
sigma <- 0.5
peluang_lebih_4 <- pnorm(4, mean = mu, sd = sigma, lower.tail = FALSE)
batas_5_persen <- qnorm(0.95, mean = mu, sd = sigma)
peluang_lebih_4
## [1] 0.02275013
batas_5_persen
## [1] 3.822427
Berdasarkan perhitungan menggunakan distribusi Normal, peluang waktu loading halaman lebih dari 4 detik adalah sebesar 2,28%. Sementara itu, batas waktu yang termasuk dalam 5% waktu loading paling lambat adalah sekitar 3,82 detik. Artinya, waktu loading di atas 3,82 detik termasuk kelompok 5% paling lambat.