n <- 10; p <- 0.25
round(dbinom(2, size = n, prob = p), 4)
## [1] 0.2816
Jadi Peluang tepat 2 pengguna mengklik iklan tersebut adalah sekitar 28,16%
n * p
## [1] 2.5
Jadi rata-rata jumlah pengguna yang diharapkan untuk mengklik iklan adalah 2,5 pengguna
round(sqrt(n * p * (1-p)), 3)
## [1] 1.369
Jadi simpangan baku atau sebaran jumlah klik dari nilai rata-ratanya adalah 1,369
lambda <- 8
round(dpois(5, lambda), 4)
## [1] 0.0916
Jadi peluang server menerima tepat 5 unggahan dalam 1 menit adalah sekitar 9,16%
b)P(LEBIH DARI 12 unggahan)
round(1 - ppois(12, lambda), 4)
## [1] 0.0638
Jadi peluang server menerima beban lebih dari 12 unggahan dalam rentang satu menit adalah 6,38%
mu <- 3; sigma <- 0.5
1 - round(pnorm(4, mean = mu, sd = sigma), 4)
## [1] 0.0228
Jadi peluang pengguna mengalami lag dengan waktu loading halaman lebih dari 4 detik yakni 2,28%.
round(qnorm(0.95, mean = mu, sd = sigma), 4)
## [1] 3.8224
Jadi 5% pengguna yang mengalami waktu loading paling lambat di aplikasi tersebut kehilangan waktu minimal 3,8225 detik ke atas.