# ------------------------------------------------------------------------------
# TOPIK 1: Klasifikasi Variabel Acak
# ------------------------------------------------------------------------------
# a) Jumlah komentar per unggahan : Diskrit
# b) Durasi video yang ditonton   : Kontinu


# ------------------------------------------------------------------------------
# TOPIK 2: Distribusi Binomial
# ------------------------------------------------------------------------------
n <- 10; p <- 0.25

dbinom(2, size = n, prob = p)       # P(X=2) Tepat 2 mengklik
## [1] 0.2815676
n * p                              # mean
## [1] 2.5
sqrt(n * p * (1 - p))              # sd
## [1] 1.369306
# ------------------------------------------------------------------------------
# TOPIK 2: Distribusi Poisson
# ------------------------------------------------------------------------------
lambda <- 8

dpois(5, lambda)                   # P(X=5) Tepat 5 unggahan secara manual/R
## [1] 0.09160366
1 - ppois(12, lambda)              # P(X>12) Lebih dari 12 unggahan
## [1] 0.0637972
# ------------------------------------------------------------------------------
# TOPIK 4: Standardisasi Z / Distribusi Normal
# ------------------------------------------------------------------------------
mu <- 3; sigma <- 0.5

1 - pnorm(4, mean = mu, sd = sigma)  # P(X>4) Loading > 4 detik
## [1] 0.02275013
qnorm(0.95, mean = mu, sd = sigma)   # Batas waktu 5% loading terlama (Persentil 0.95)
## [1] 3.822427