Statistika Pertemuan 5

#Soal 1  : (Variabel Acak)
# (Variabel Acak) Klasifikasikan: (a) jumlah komentar per unggahan, (b) durasi video yang ditonton (detik) — diskrit atau kontinu?

# (a) jumlah komentar per unggahan
komentar <- c(0, 1, 2, 3, 5)  
#Klasifikasi : Diskrit nilainya diperoleh dari hasil perhitungan 

# (b) Klasifikasi Durasi Video (detik)
durasi <- c( 12.5, 14.0, 15.5 )
#Klasifikasi : Durasi merupakan variabel yang diukur dan nilainya dapat berupa rentang angka desimal

#Soal 2 : (Binomial)
#  25% pengguna yang melihat iklan akan mengkliknya. Jika iklan ditampilkan ke 10 pengguna, hitung P(TEPAT 2 mengklik), rata-rata, dan SD jumlah klik.

n <- 10; p <- 0.25;
dbinom(2, size = n, prob = p)   #P tepat 2 mengklik

## [1] 0.2815676

n*p                             #mean

## [1] 2.5

sqrt(n*p*(1-p))                 #standar deviasi

## [1] 1.369306

#Soal 3 : (Poisson)
#  Rata-rata server menerima 8 unggahan foto per menit. Hitung P(TEPAT 5 unggahan) secara manual, dan P(LEBIH DARI 12 unggahan) dengan RStudio.

lambda <- 8

dpois(5, lambda)                   # P(TEPAT 5 unggahan)

## [1] 0.09160366

1 - ppois(12, lambda)              # P(LEBIH DARI 12 unggahan) -> P(X > 12)

## [1] 0.0637972

#Soal 4 : (Normal & Z)
# Waktu muat halaman berdistribusi normal dengan μ=3 detik, σ=0,5 detik. Hitung P(loading > 4 detik), dan tentukan batas waktu 5% loading TERLAMA.

mu <- 3; sigma <- 0.5

1 - pnorm(4, mean = mu, sd = sigma)  # P(loading > 4 detik)

## [1] 0.02275013

qnorm(0.95, mean = mu, sd = sigma)   # Batas waktu 5% loading TERLAMA (Persentil 95%)

## [1] 3.822427