tugas pertemuan 5 statis

# Penjelasan variabel acak dalam R
# (a) Diskrit -> contoh data cacahan: count
# (b) Kontinu -> contoh data pengukuran: numeric/double
cat("(a) Jumlah komentar: Variabel Acak Diskrit\n")

## (a) Jumlah komentar: Variabel Acak Diskrit

cat("(b) Durasi video: Variabel Acak Kontinu\n")

## (b) Durasi video: Variabel Acak Kontinu

# Parameter
n <- 10
p <- 0.25

# 1. P(TEPAT 2 mengklik)
p_tepat_2 <- dbinom(x = 2, size = n, prob = p)
cat("P(X = 2) =", p_tepat_2, "\n")

## P(X = 2) = 0.2815676

# 2. Rata-rata
rata_rata <- n * p
cat("Rata-rata =", rata_rata, "\n")

## Rata-rata = 2.5

# 3. Standar Deviasi
sd_val <- sqrt(n * p * (1 - p))
cat("Standar Deviasi =", sd_val, "\n")

## Standar Deviasi = 1.369306

lambda <- 8

# P(TEPAT 5 unggahan) secara manual & R
p_tepat_5 <- dpois(x = 5, lambda = lambda)
cat("P(X = 5) =", p_tepat_5, "\n")

## P(X = 5) = 0.09160366

# P(LEBIH DARI 12 unggahan)
p_lebih_12 <- ppois(q = 12, lambda = lambda, lower.tail = FALSE)
cat("P(X > 12) =", p_lebih_12, "\n")

## P(X > 12) = 0.0637972

mu <- 3
sigma <- 0.5

# 1. P(Loading > 4 detik)
p_lebih_4 <- pnorm(q = 4, mean = mu, sd = sigma, lower.tail = FALSE)
cat("P(X > 4) =", p_lebih_4, "\n")

## P(X > 4) = 0.02275013

# 2. Batas waktu 5% loading TERLAMA
batas_5_persen <- qnorm(p = 0.95, mean = mu, sd = sigma)
cat("Batas waktu 5% loading terlama =", batas_5_persen, "detik\n")

## Batas waktu 5% loading terlama = 3.822427 detik