Praktikum Minggu ke-3

1. a. Distribusi Binomial (Diskrit)

set.seed(123)
n <- 1000
trial <- 100
p <- 0.5
dist_bin <- rbinom(n, size=trial, prob=p)
hist(dist_bin, breaks=20, main="Histogram Distribusi Binomial", xlab="Jumlah Sukses", ylab="Frekuensi",col="red")

1. b. Distribusi Normal (Kontinu)

set.seed(123)
m <- 0
s <- 1
dist_norm <- rnorm(n, mean=m, sd=s)
hist(dist_norm, breaks=20, main="Histogram Distribusi Normal", xlab="Nilai", ylab="Frekuensi",col="lightgreen")

2. Studi Kasus Terambilnya Ayam Goreng dalam wadah

set.seed(123)
n <- 1000
trial <- 100
p <- 0.5
dist_bin_AG <- rbinom(n, size=trial, prob=p)
hist(dist_bin_AG, breaks=20, main="Histogram Terambilnya Ayam Goreng", xlab="Jumlah Terambil", ylab="Frekuensi",col="brown")