Simulasi Variabel Random: Pembangkitan dan Visualisasi Bilangan Acak

# Simulasi Bernoulli

set.seed(123)

n <- 1000
p <- 0.6  

bernoulli_data <- rbinom(n, size = 1, prob = p)

hist(bernoulli_data,
     breaks = 2,
     main = "Histogram Distribusi Bernoulli",
     xlab = "Hasil (0 = Gagal, 1 = Sukses)",
     col = "lightpink")

### Distribusi Bernoulli adalah distribusi diskrit yang hanya memiliki dua kemungkinan hasil, yaitu sukses (1) dan gagal (0). Pada simulasi ini digunakan probabilitas sukses sebesar 0.6 dengan jumlah percobaan sebanyak 1000. Histogram menunjukkan frekuensi munculnya nilai 0 dan 1 dari hasil simulasi.

# Simulasi Distribusi Gaussian (Normal)

set.seed(123)

n <- 1000
mean <- 0
sd <- 1

normal_data <- rnorm(n, mean = mean, sd = sd)

hist(normal_data,
     breaks = 30,
     main = "Histogram Distribusi Gaussian",
     xlab = "Nilai",
     col = "lightpink")