Dasar Software R untuk Simulasi

1. Dataframe Nama dan Nilai

# Membuat dataframe
data1 <- data.frame(
  Nama = c("Sasa", "Bara", "Daru", "Sakha"),
  Nilai = c(90, 100, 95, 99)  # rata-rata = 96
)

# Cek mean
mean(data1$Nilai)

## [1] 96

# Ringkasan statistik
summary(data1)

##      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

x2 <- numeric(12)   # panjang barisan
x2[1] <- 4          # nilai awal

pola <- c("+3", "*2", "-1")

for (i in 2:length(x2)) {
  aturan <- pola[(i - 2) %% length(pola) + 1]
  
  if (aturan == "+3") x2[i] <- x2[i-1] + 3
  if (aturan == "*2") x2[i] <- x2[i-1] * 2
  if (aturan == "-1") x2[i] <- x2[i-1] - 1
}

x2

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

3. Vektor dengan seq() dan rep()

# Membuat satu blok
blok <- rep(seq(0, 6, by = 2), each = 2)

# Ulang 3 kali
vektor <- rep(blok, times = 3)

vektor

##  [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)

# Simulasi pelemparan koin (0 dan 1)
# 0 sebanyak 13 kali (~45%)
# 1 sebanyak 17 kali (~55%)

set.seed(11)

# Banyak percobaan
n <- 30

# Perhitungan proporsi
n0 <- 0.45 * n   # 45% dari 30
n1 <- 0.55 * n   # 55% dari 30

# Karena harus bilangan bulat
n0 <- 13
n1 <- 17

# Simulasi
hasil <- sample(c(rep(0, n0), rep(1, n1)))
hasil

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

5. Dataframe penjualan UMKM + summary

# Membuat dataframe penjualan UMKM

Hari <- c("Senin", "Selasa", "Rabu", "Kamis")
Jumlah_Produk_Terjual <- c(15, 20, 18, 25)
Harga_Satuan <- c(5000, 5000, 5000, 5000)
Total_Pendapatan <- Jumlah_Produk_Terjual * Harga_Satuan

data_penjualan <- data.frame(
  Hari,
  Jumlah_Produk_Terjual,
  Harga_Satuan,
  Total_Pendapatan
)

# Menampilkan dataframe
data_penjualan

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    15         5000            75000
## 2 Selasa                    20         5000           100000
## 3   Rabu                    18         5000            90000
## 4  Kamis                    25         5000           125000

# Menampilkan ringkasan statistik
summary(data_penjualan)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan  Total_Pendapatan
##  Length:4           Min.   :15.00         Min.   :5000   Min.   : 75000  
##  Class :character   1st Qu.:17.25         1st Qu.:5000   1st Qu.: 86250  
##  Mode  :character   Median :19.00         Median :5000   Median : 95000  
##                     Mean   :19.50         Mean   :5000   Mean   : 97500  
##                     3rd Qu.:21.25         3rd Qu.:5000   3rd Qu.:106250  
##                     Max.   :25.00         Max.   :5000   Max.   :125000