Aaron Christian Daniel

2404220037

Nomor 1 diskrit

set.seed(123)
lambda <- 5
pois <- rpois(67, lambda)

mean(pois)
## [1] 5.104478
var(pois)
## [1] 4.670737
hist(pois, breaks = 30, main = "Histogram Distribusi Poisson", xlab = "Jumlah Kejadian", col = "lightyellow")

# Nomor 1 Kontinu

exp <- rexp(80, rate = lambda)  
hist(exp, breaks = 30, main = "Histogram Distribusi Eksponensial", xlab = "Nilai", col = "lightcoral")

Nomor 2 Studi Kasus Variabel Random

X ~ N(213, 200^2)

normal <- rnorm(1294, mean = 213, sd = 200)
mean(normal)
## [1] 214.564
sd(normal)
## [1] 199.8025
hist(normal, breaks = 30, main = "Histogram Distribusi Normal", xlab = "Nilai", col = "lightpink")