# =============================================================
# NOMOR 1 JUMLAH KOMENTAR, DURASI MENONTON, DAN DISKRIT/KONTINU
# =============================================================
variabel <- c(
"Jumlah komentar",
"Durasi video"
)
jenis <- c(
"Diskrit",
"Kontinu"
)
data.frame(variabel, jenis)
## variabel jenis
## 1 Jumlah komentar Diskrit
## 2 Durasi video Kontinu
# ==================================================
# NOMOR 2 BINOMIAL P, RATA-RATA, DAN STANDAR DEVIASI
# ==================================================
n <- 10
p <- 0.25
# P(tepat 2)
dbinom(2, n, p)
## [1] 0.2815676
# Rata-rata
n * p
## [1] 2.5
# SD
sqrt(n * p * (1 - p))
## [1] 1.369306
# ==================================================================
# NOMOR 3 POISSON P(TEPAT 5 UNGGAHAN), DAN P(LEBIH DARI 12 UNGGAHAN)
# ==================================================================
lambda <- 8
# P(tepat 5)
dpois(5, lambda)
## [1] 0.09160366
# P(lebih dari 12)
1 - ppois(12, lambda)
## [1] 0.0637972
# ===============================================================
# NOMOR 4 NORMAL P (LOADING >4 DETIK), DAN BATAS WAKTU LOADING 5%
# ===============================================================
mu <- 3
sigma <- 0.5
# Z untuk X = 4
(4 - mu) / sigma
## [1] 2
# P(X > 4)
pnorm(4, mean = mu, sd = sigma, lower.tail = FALSE)
## [1] 0.02275013
# Batas 5% terlama
qnorm(0.95, mean = mu, sd = sigma)
## [1] 3.822427