n <- 10; p <- 0.25

dbinom(2, size = n, prob = p)
## [1] 0.2815676
pbinom(2, size = n, prob = p)
## [1] 0.5255928
n * p                         #mean
## [1] 2.5
sqrt(n * p * (1 - p))         # sd
## [1] 1.369306

peluang 2 pengguna klik iklan adalah 0.2816 dan rata-rata nya 2.5 orang dengan standar deviasi 1.369

lambda <- 8

dpois(5, lambda)
## [1] 0.09160366
1 - ppois(12, lambda)
## [1] 0.0637972

peluang server menerima 5 unggahan adalah 0.0916 dan rata-rata server yang menerima lebih dari 12 unggahan adalah 0.0638

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

waktu muat >3.822 menit termasuk 5% loading terlama