1.menentukan variabel acak

# Contoh pendefinisian jenis variabel dalam R
jml_komentar <- c(0, 5, 12, 3) # Diskrit (integer)
durasi_video <- c(12.5, 45.2, 120.0) # Kontinu (numeric)

class(jml_komentar)
## [1] "numeric"
class(durasi_video)
## [1] "numeric"

2.distribusi binomial

# P(X = 2) dengan distribusi binomial
n <- 10
p <- 0.25
P_tepat_2 <- dbinom(2, size = n, prob = p)
print(P_tepat_2)
## [1] 0.2815676
# Rata-rata dan Standar Deviasi
mu <- n * p
sd_val <- sqrt(n * p * (1 - p))
cat("Rata-rata:", mu, "\nStandar Deviasi:", sd_val)
## Rata-rata: 2.5 
## Standar Deviasi: 1.369306

3.distribusi poisson

lambda <- 8

# P(Tepat 5 unggahan) secara manual/R
p_tepat_5 <- dpois(5, lambda = lambda)
print(p_tepat_5)
## [1] 0.09160366
# P(Lebih dari 12 unggahan)
p_lebih_12 <- 1 - ppois(12, lambda = lambda)
print(p_lebih_12)
## [1] 0.0637972

4.distribusi nilai normal dan nilai z

mu <- 3
sigma <- 0.5

# P(loading > 4 detik)
p_loading_4 <- 1 - pnorm(4, mean = mu, sd = sigma)
print(p_loading_4)
## [1] 0.02275013
# Batas waktu 5% loading terlama (persentil ke-95)
batas_waktu <- qnorm(0.95, mean = mu, sd = sigma)
print(batas_waktu)
## [1] 3.822427