jumlah_komentar <- "Diskrit"
durasi_video <- "Kontinu"
jumlah_komentar
## [1] "Diskrit"
durasi_video
## [1] "Kontinu"
Jumlah komentar per unggahan termasuk variabel diskrit karena berupa jumlah yang dapat dihitung satu per satu, misalnya 1, 2, 3, dan seterusnya.
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%.
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.