# Nomor 1: Variabel Acak
# (a) Jumlah komentar per unggahan
jumlah_komentar <- "Diskrit"
jumlah_komentar
## [1] "Diskrit"
# (b) Durasi video yang ditonton
durasi_video <- "kontinu"
durasi_video
## [1] "kontinu"
# Nomor 2: Distribusi Binomial
# Diketahui
n <- 10
p <- 0.25
# Peluang tepat 2 pengguna mengklik
peluang_2 <- dbinom(2, size = n, prob = p)
peluang_2
## [1] 0.2815676
# Rata - rata jumlah klik
rata_rata <- n * p
rata_rata
## [1] 2.5
# Standar deviasi
sd <- sqrt(n * p * (1 - p))
sd
## [1] 1.369306
# Nomor 3: Distribusi Poisoon
# Diketahui
lambda <- 8
# (a) Peluang tepat 5 unggahan
peluang_5 <- dpois(5, lambda)
peluang_5
## [1] 0.09160366
# (b) Peluang lebih dari 12 unggahan
peluang_lebih_12 <- 1 - ppois(12, lambda)
peluang_lebih_12
## [1] 0.0637972
# Nomor 4: Distribusi Normal dan Z
# Diketauhi
mu <- 3
sigma <- 0.5
# (a) Peluang loading lebih dari 4 deitk
prob_loading <- 1 - pnorm(4, mean = mu, sd = sigma)
prob_loading
## [1] 0.02275013
# (b) Batas waktu 5% loading terlama
batas_5_persen <- qnorm(0.95, mean = mu, sd = sigma)
batas_5_persen
## [1] 3.822427