Socmed Insights

==========================================

1. KLASIFIKASI VARIABEL ACAK

==========================================

cat("1. Klasifikasi Variabel Acak:\n")

## 1. Klasifikasi Variabel Acak:

cat("   (a) Jumlah komentar per unggahan: Diskrit\n")

##    (a) Jumlah komentar per unggahan: Diskrit

cat("   (b) Durasi video yang ditonton: Kontinu\n\n")

##    (b) Durasi video yang ditonton: Kontinu

==========================================

2. DISTRIBUSI BINOMIAL

==========================================

n <- 10
p <- 0.25
q <- 0.75

P(Tepat 2 mengklik)

p_tepat_2 <- dbinom(x = 2, size = n, prob = p)

Rata-rata

rata_rata_binom <- n * p

Standar Deviasi

sd_binom <- sqrt(n * p * q)

cat("2. Hasil Distribusi Binomial:\n")

## 2. Hasil Distribusi Binomial:

cat("   P(Tepat 2 klik) :", p_tepat_2, "\n")

##    P(Tepat 2 klik) : 0.2815676

cat("   Rata-rata       :", rata_rata_binom, "\n")

##    Rata-rata       : 2.5

cat("   Standar Deviasi :", sd_binom, "\n\n")

##    Standar Deviasi : 1.369306

==========================================

3. DISTRIBUSI POISSON

==========================================

lambda_poisson <- 8

P(Lebih dari 12 unggahan) -> P(X > 12)

p_lebih_dari_12 <- ppois(q = 12, lambda = lambda_poisson, lower.tail = FALSE)

Opsional: Cek hasil syntax dari hitungan manual P(X=5)

p_tepat_5 <- dpois(x = 5, lambda = lambda_poisson)

cat("3. Hasil Distribusi Poisson:\n")

## 3. Hasil Distribusi Poisson:

cat("   P(Tepat 5 unggahan) (Verifikasi) :", p_tepat_5, "\n")

##    P(Tepat 5 unggahan) (Verifikasi) : 0.09160366

cat("   P(Lebih dari 12 unggahan)        :", p_lebih_dari_12, "\n\n")

##    P(Lebih dari 12 unggahan)        : 0.0637972

==========================================

4. DISTRIBUSI NORMAL & Z

==========================================

mu_normal <- 3
sd_normal <- 0.5

P(loading > 4 detik) -> P(X > 4)

p_lebih_dari_4 <- pnorm(q = 4, mean = mu_normal, sd = sd_normal, lower.tail = FALSE)

Batas waktu 5% loading TERLAMA (Persentil ke-95)

batas_5_persen <- qnorm(p = 0.95, mean = mu_normal, sd = sd_normal)

cat("4. Hasil Distribusi Normal:\n")

## 4. Hasil Distribusi Normal:

cat("   P(loading > 4 detik)       :", p_lebih_dari_4, "\n")

##    P(loading > 4 detik)       : 0.02275013

cat("   Batas waktu 5% loading lama:", batas_5_persen, "detik\n")

##    Batas waktu 5% loading lama: 3.822427 detik