Dasar Software R untuk Simulasi

# ================================
# 1. Dataframe Nama dan Nilai (Mean = 96)
# ================================

df_nilai <- data.frame(
  Nama = c("Andi", "Budi", "Citra", "Dewi"),
  Nilai = c(90, 95, 100, 99)
)

# Mengecek mean
mean(df_nilai$Nilai)

## [1] 96

# Ringkasan statistik
summary(df_nilai)

##      Nama               Nilai       
##  Length:4           Min.   : 90.00  
##  Class :character   1st Qu.: 93.75  
##  Mode  :character   Median : 97.00  
##                     Mean   : 96.00  
##                     3rd Qu.: 99.25  
##                     Max.   :100.00

# ================================
# 2. Barisan 12 elemen (+3 → ×2 → −1), nilai awal 4
# ================================

barisan <- numeric(12)
barisan[1] <- 4

for (i in 2:12) {
  if ((i-2) %% 3 == 0) {
    barisan[i] <- barisan[i-1] + 3
  } else if ((i-2) %% 3 == 1) {
    barisan[i] <- barisan[i-1] * 2
  } else {
    barisan[i] <- barisan[i-1] - 1
  }
}

barisan

##  [1]   4   7  14  13  16  32  31  34  68  67  70 140

# ================================
# 3. Membentuk vektor dengan seq() dan rep()
# Target:
# 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6
# ================================

pola <- rep(seq(0, 6, by = 2), each = 2)
hasil <- rep(pola, times = 3)

hasil

##  [1] 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6

# ================================
# 4. Simulasi pelemparan (30 kali)
# 0 = 45%
# 1 = 55%
# ================================

set.seed(123)

simulasi <- sample(
  x = c(0,1),
  size = 30,
  replace = TRUE,
  prob = c(0.45, 0.55)
)

simulasi

##  [1] 1 0 1 0 0 1 1 0 0 1 0 1 0 0 1 0 1 1 1 0 0 0 0 0 0 0 1 0 1 1

# ================================
# 5. Dataframe Penjualan UMKM
# ================================

df_penjualan <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis"),
  Jumlah_Produk_Terjual = c(20, 15, 25, 18),
  Harga_Satuan = c(10000, 12000, 10000, 11000)
)

df_penjualan$Total_Pendapatan <- 
  df_penjualan$Jumlah_Produk_Terjual * df_penjualan$Harga_Satuan

summary(df_penjualan)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:4           Min.   :15.00         Min.   :10000   Min.   :180000  
##  Class :character   1st Qu.:17.25         1st Qu.:10000   1st Qu.:193500  
##  Mode  :character   Median :19.00         Median :10500   Median :199000  
##                     Mean   :19.50         Mean   :10750   Mean   :207000  
##                     3rd Qu.:21.25         3rd Qu.:11250   3rd Qu.:212500  
##                     Max.   :25.00         Max.   :12000   Max.   :250000