PSS-WEEK-6.R

# ==============================================================================
# 1. SETUP DATA SINTETIS
# ==============================================================================
set.seed(123) # Mengunci nilai acak agar hasil konsisten

# Membangkitkan populasi (Distribusi Eksponensial dengan rate = 0.2, rata-rata asli = 5)
populasi <- rexp(n = 10000, rate = 0.2)
rata_rata_asli <- mean(populasi)

# Mengambil sampel acak tunggal berukuran n = 50 dari populasi
n_sampel <- 50
sampel_awal <- sample(populasi, size = n_sampel, replace = FALSE)

cat("Rata-rata Populasi Asli : ", rata_rata_asli, "\n")

## Rata-rata Populasi Asli :  5.018906

cat("Rata-rata Sampel Awal   : ", mean(sampel_awal), "\n")

## Rata-rata Sampel Awal   :  5.499672