Tugas Pendalaman Materi - SocMed Insights

Statistika (INF625103)

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

TUGAS PENDALAMAN MATERI: SOCMED INSIGHTS

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

——————————————————–

SOAL 2: DISTRIBUSI BINOMIAL

——————————————————–

n_pengguna <- 10
p_klik <- 0.25

Hitung P(TEPAT 2 mengklik)

prob_tepat_2 <- dbinom(x = 2, size = n_pengguna, prob = p_klik)
cat("P(Tepat 2 mengklik)       :", prob_tepat_2, "\n")

## P(Tepat 2 mengklik)       : 0.2815676

Hitung Rata-rata

rata_rata_bin <- n_pengguna * p_klik
cat("Rata-rata jumlah klik     :", rata_rata_bin, "\n")

## Rata-rata jumlah klik     : 2.5

Hitung Standar Deviasi

sd_bin <- sqrt(n_pengguna * p_klik * (1 - p_klik))
cat("Standar Deviasi jumlah klik:", sd_bin, "\n\n")

## Standar Deviasi jumlah klik: 1.369306

——————————————————–

SOAL 3: DISTRIBUSI POISSON

——————————————————–

lambda_pois <- 8

P(LEBIH DARI 12 unggahan) -> P(X > 12)

lower.tail = FALSE digunakan untuk mencari area di sebelah kanan nilai q

prob_lebih_12 <- ppois(q = 12, lambda = lambda_pois, lower.tail = FALSE)
cat("P(Lebih dari 12 unggahan) :", prob_lebih_12, "\n\n")

## P(Lebih dari 12 unggahan) : 0.0637972

——————————————————–

SOAL 4: DISTRIBUSI NORMAL & Z

——————————————————–

mu_loading <- 3
sigma_loading <- 0.5

P(loading > 4 detik)

prob_lebih_4 <- pnorm(q = 4, mean = mu_loading, sd = sigma_loading, lower.tail = FALSE)
cat("P(Loading > 4 detik)      :", prob_lebih_4, "\n")

## P(Loading > 4 detik)      : 0.02275013

Batas waktu 5% loading TERLAMA

Mencari nilai X pada persentil ke-95 (karena 5% terlama berada di ekor kanan)

batas_5_persen <- qnorm(p = 0.95, mean = mu_loading, sd = sigma_loading)
cat("Batas waktu 5% terlama    :", batas_5_persen, "detik\n")

## Batas waktu 5% terlama    : 3.822427 detik