Jumlah komentar per unggahan: Diskrit (tercacah dalam bilangan bulat).
Durasi video yang ditonton (detik): Kontinu (berada pada interval real/desimal).
n <- 10
p <- 0.25
# P(Tepat 2 mengklik)
p_2_klik <- dbinom(2, size = n, prob = p)
p_2_klik
## [1] 0.2815676
# Rata-rata (Mean)
mean_binom <- n * p
mean_binom
## [1] 2.5
# Standar Deviasi (SD)
sd_binom <- sqrt(n * p * (1 - p))
sd_binom
## [1] 1.369306
lambda <- 8
# P(Tepat 5 unggahan)
p_5_foto <- dpois(5, lambda = lambda)
p_5_foto
## [1] 0.09160366
# P(Lebih dari 12 unggahan) -> P(X > 12) = 1 - P(X <= 12)
p_lebih_12 <- 1 - ppois(12, lambda = lambda)
p_lebih_12
## [1] 0.0637972
mu <- 3
sigma <- 0.5
# P(loading > 4 detik) -> 1 - P(X <= 4)
p_loading_gt_4 <- 1 - pnorm(4, mean = mu, sd = sigma)
p_loading_gt_4
## [1] 0.02275013
# Batas waktu 5% loading terlama (Quantile 0.95)
batas_5_persen <- qnorm(0.95, mean = mu, sd = sigma)
batas_5_persen
## [1] 3.822427