1.Variabel Acak

##A.Jumlah Komentar Per Unggahan Jumlah komentar per unggahan termasuk variabel acak diskrit karena nilainya diperoleh melalui proses menghitung dan berupa bilangan bulat.

B. Durasi Video yang Ditonton

Durasi video yang ditonton termasuk variabel acak kontinu karena nilainya dapat berupa bilangan pecahan.

Program R

komentar <- 150
durasi <- 10.5

print("Jumlah komentar: Variabel Diskrit")
## [1] "Jumlah komentar: Variabel Diskrit"
print("Durasi video: Variabel Kontinu")
## [1] "Durasi video: Variabel Kontinu"

3. Distribusi Poisson

Menentukan rata-rata unggahan per menit

lambda <- 8

A. Peluang tepat 5 unggahan

peluang_5 <- dpois(5, lambda = lambda)

print(peluang_5)

B. Peluang lebih dari 12 unggahan

peluang_lebih_12 <- ppois(12, lambda = lambda, lower.tail = FALSE)

print(peluang_lebih_12)

4. Distribusi Normal

Menentukan nilai rata-rata dan standar deviasi

mu <- 3 sigma <- 0.5

A. Peluang loading lebih dari 4 detik

peluang <- pnorm(4, mean = mu, sd = sigma, lower.tail = FALSE)

print(peluang)

B. Batas waktu 5% loading terlama

batas <- qnorm(0.95, mean = mu, sd = sigma)

print(batas)