Soal 1: Klasifikasi Variabel Acak

Aplikasi analitik media sosial ‘SocMed Insights’ mengumpulkan berbagai data aktivitas pengguna. Berikut adalah klasifikasi variabel acaknya:

  1. Jumlah komentar per unggahan
    Jenis variabel: Diskrit, karena data tersebut diperoleh melalui proses penghitungan jumlah komentar pada suatu unggahan.Nilai yang dihasilkan hanya dapat berupa bilangan bulat.

  2. Durasi video yang ditonton (detik)
    Jenis variabel: Kontinu, karena data tersebut diperoleh melalui proses pengukuran waktu.Secara teori dapat memiliki nilai berapa pun dalam suatu interval. Meskipun sistem aplikasi mungkin mencatat waktu dalam satuan detik bulat, sifat dasar variabel tersebut tetap kontinu karena waktu merupakan besaran yang diukur.

Soal 2: Distribusi Binomial

Diketahui:

# Mendefinisikan parameter
n <- 10
p <- 0.25
q <- 1 - p

# a. Menghitung Peluang Tepat 2 mengklik P(X = 2)
peluang_2_klik <- dbinom(x = 2, size = n, prob = p)
cat("Peluang tepat 2 klik :", round(peluang_2_klik, 5), "\n")
## Peluang tepat 2 klik : 0.28157
# b. Menghitung Rata-rata (Mean)
rata_rata <- n * p
cat("Rata-rata            :", rata_rata, "\n")
## Rata-rata            : 2.5
# c. Menghitung Standar Deviasi (SD)
sd <- sqrt(n * p * q)
cat("Standar Deviasi      :", round(sd, 5), "\n")
## Standar Deviasi      : 1.36931

Soal 3: Distribusi Poisson

Diketahui:

  • Rata-rata kejadian (\(\lambda\)) = lambda = \(8\) unggahan per menit
# Mendefinisikan parameter
lambda <- 8

# b. Menghitung P(Lebih dari 12 unggahan) -> P(X > 12)
peluang_lebih_12 <- ppois(q = 12, lambda = lambda, lower.tail = FALSE)
cat("P(Lebih dari 12 unggahan) :", round(peluang_lebih_12, 5), "\n")
## P(Lebih dari 12 unggahan) : 0.0638

Soal 4: Distribusi Normal & Z

Diketahui:

  • Rata-rata (\(\mu\)) = mu = \(3\) detik
  • Standar deviasi (\(\sigma\)) = sigma = \(0.5\) detik
# Mendefinisikan parameter
mu <- 3
sigma <- 0.5

# a. Menghitung P(loading > 4 detik)
peluang_lebih_4 <- pnorm(q = 4, mean = mu, sd = sigma, lower.tail = FALSE)
cat("Peluang loading > 4 detik :", round(peluang_lebih_4, 4), "\n")
## Peluang loading > 4 detik : 0.0228
# b. Menentukan batas waktu 5% loading terlama
batas_waktu_5_persen <- qnorm(p = 0.05, mean = mu, sd = sigma, lower.tail = FALSE)
cat("Batas 5% loading terlama  :", round(batas_waktu_5_persen, 4), "detik \n")
## Batas 5% loading terlama  : 3.8224 detik