tugas statistika pertemuan 5

Nomor 1: Klasifikasi Variabel Acak

cat(
  "a. Jumlah komentar per unggahan: Diskrit\n",
  "b. Durasi video yang ditonton (detik): Kontinu\n",
  sep = ""
)

## a. Jumlah komentar per unggahan: Diskrit
## b. Durasi video yang ditonton (detik): Kontinu

Nomor 2: Distribusi Binomial

n_2           <- 10
p_2           <- 0.25
p_tepat_2     <- dbinom(2, size = n_2, prob = p_2)
rata_rata_bin <- n_2 * p_2
sd_binomial   <- sqrt(n_2 * p_2 * (1 - p_2))

cat(
  "P(TEPAT 2 mengklik)          :", round(p_tepat_2, 4), "\n",
  "Rata-rata                    :", rata_rata_bin, "\n",
  "Standar Deviasi              :", round(sd_binomial, 4), "\n",
  sep = ""
)

## P(TEPAT 2 mengklik)          :0.2816
## Rata-rata                    :2.5
## Standar Deviasi              :1.3693

Nomor 3: Distribusi Poisson

lambda_3   <- 8
p_tepat_5  <- dpois(5, lambda = lambda_3)
p_lebih_12 <- 1 - ppois(12, lambda = lambda_3)
 
cat(
  "P(TEPAT 5 unggahan)          :", round(p_tepat_5, 4), "\n",
  "P(LEBIH DARI 12 unggahan)    :", round(p_lebih_12, 4), "\n",
  sep = ""
)

## P(TEPAT 5 unggahan)          :0.0916
## P(LEBIH DARI 12 unggahan)    :0.0638

Nomor 4: Distribusi Normal & Z

mu_4          <- 3
sigma_4       <- 0.5
p_loading_4   <- 1 - pnorm(4, mean = mu_4, sd = sigma_4)
batas_5_persen<- qnorm(0.95, mean = mu_4, sd = sigma_4)

cat(
  "P(loading > 4 detik)         :", round(p_loading_4, 4), "\n",
  "Batas 5% loading terlama     :", round(batas_5_persen, 4), "detik\n",
  sep = ""
)

## P(loading > 4 detik)         :0.0228
## Batas 5% loading terlama     :3.8224detik