Aplikasi analitik media sosial ‘SocMed Insights’ mengumpulkan berbagai data untuk keperluan berikut.
Carilah:
Distribusi Binomial dapat dicari dengan fungsi dbinom()
dan P(TEPAT 2 klik) berarti P(X=2).
n <- 10
p <- 0.25
cat('P(X=2) =', dbinom(2, size=n, prob=p), '\n')
## P(X=2) = 0.2815676
cat('Rata-rata = μ =', n * p, '\n')
## Rata-rata = μ = 2.5
cat('Standar Deviasi = σ =', sqrt(n * p * (1 - p)))
## Standar Deviasi = σ = 1.369306
Distribusi Poisson dapat dicari dengan fungsi dpois()
dan ppois(), P(TEPAT 5 unggahan) berarti P(X=5), dan
P(LEBIH DARI 12 unggahan) berarti P(X>12).
lambda <- 8
cat('P(X=2) =', dpois(5, lambda=lambda), '\n')
## P(X=2) = 0.09160366
cat('P(X>12) =', 1 - ppois(12, lambda=lambda))
## P(X>12) = 0.0637972
Distribusi Normal dapat dicari dengan fungsi pnorm(),
P(loading > 4 detik) berarti P(X>4), dan batas waktu 5% loading
terlama berarti P(X 5% terlama).
mu <- 3
std <- 0.5
cat('P(X>4) =', 1 - pnorm(4, mean=mu, sd=std), '\n')
## P(X>4) = 0.02275013
cat('P(X 5% terlama) =', qnorm(0.95, mean=mu, sd=std))
## P(X 5% terlama) = 3.822427