#Soal 1 (Variabel acak):
#Klasifikasikan: (a) jumlah komentar per unggahan, (b) durasi video yang ditonton (detik) — diskrit atau kontinu?
#(a)Merupakan diskrit karena angka berupa bilangan bulat
#(b)Merupakan kontinu karena angka dapat berbentuk desimal, seperti (12,34)
#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
## [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
dpois(5, lambda)
## [1] 0.09160366
1 - ppois(12, lambda)
## [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) #P(X > 4)
## [1] 0.02275013
qnorm(0.95, mean = mu, sd = sigma) #Batas waktu 5% loading terlama
## [1] 3.822427