Praktikum Week 3

# Simulasi Distribusi Diskrit (Binomial)
set.seed(123)
binom_sim <- rbinom(1000, size = 10, prob = 0.7)

# Melihat ringkasan
summary(binom_sim)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   2.000   6.000   7.000   7.011   8.000  10.000

# Plot
hist(binom_sim)

# Simulasi Distribusi Kontinu (Normal)
set.seed(123)
normal_sim <- rnorm(1000, mean = 75, sd = 8)

summary(normal_sim)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   52.52   69.97   75.07   75.13   80.32  100.93

# Studi Kasus Nilai Ujian
set.seed(123)
nilai_ujian <- rnorm(200, mean = 70, sd = 10)

summary(nilai_ujian)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   46.91   63.74   69.41   69.91   75.68  102.41

# Berapa yang lulus jika batas lulus 60?
lulus <- sum(nilai_ujian >= 60)

set.seed(123)
antrian <- rpois(1000, lambda = 5)

summary(antrian)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.000   3.000   5.000   4.981   6.000  14.000

hist(antrian)