#Soal 1 (variabel Acak):
#Klasifikasikan: (a) jumlah komentar per unggahan, (b) durasi video yang ditonton (detik) — diskrit atau kontinu?

#(a) Jumlah komentar per unggahan: Merupakan variabel acak diskrit, karena nilainya berupa bilangan bulat terhitung (0, 1, 2, 3, dst.) dan tidak mungkin bernilai pecahan.

#(b) Durasi video yang ditonton (detik): Merupakan variabel acak kontinu, karena nilainya dapat menempati setiap titik dan dapat berbentuk desimal (misalnya 12,34 detik atau 15,8 detik).
#Soal 2 (Binomial):
#25% pengguna yang melihat iklan akan mengkliknya. Jika iklan ditampilkan ke 10 pengguna, hitung P(TEPAT 2 mengklik), rata-rata, dan SD jumlah klik.

n <- 10; p <- 0.25

dbinom(2, size = n, prob = p) #P (tepat 2 mengklik), P(X = 2)
## [1] 0.2815676
n * p                         #Mean
## [1] 2.5
sqrt(n * p * (1 - p))         #Standar Deviasi (sd)
## [1] 1.369306
#Soal 3 (Poisson):
# Rata-rata server menerima 8 unggahan foto per menit. Hitung P(TEPAT 5 unggahan) secara manual, dan P(LEBIH DARI 12 unggahan) dengan RStudio.

lambda <- 8             #Parameter Poisson
dpois(5, lambda)        #P(tepat 5 unggahan)
## [1] 0.09160366
1 - ppois(12, lambda)   #P(X>12)
## [1] 0.0637972
#Soal 4 (Normal & Z):
#Waktu muat halaman berdistribusi normal dengan μ=3 detik, σ=0,5 detik. Hitung P(loading > 4 detik), dan tentukan batas waktu 5% loading TERLAMA.

mu <- 3; sigma <- 0.5;
1 - pnorm(4, mean = mu, sd = sigma)
## [1] 0.02275013
qnorm(0.95, mean = mu, sd = sigma)
## [1] 3.822427