Dasar Software R untuk Simulasi

Buat dataframe dengan kolom Nama dan Nilai (minimal 4 baris). Atur nilai pada kolom Nilai sehingga rata-rata (mean) dari nilai tersebut adalah 96.Selanjutnya, tampilkan ringkasan statistik dari dataframe tersebut menggunakan fungsi summary().

dfr = data.frame(
  Nama = c("Bambang", "Surya", "Hendri", "Budi"),
  Nilai = c(100,96,98,90)
)
summary(dfr)

##      Nama               Nilai      
##  Length:4           Min.   : 90.0  
##  Class :character   1st Qu.: 94.5  
##  Mode  :character   Median : 97.0  
##                     Mean   : 96.0  
##                     3rd Qu.: 98.5  
##                     Max.   :100.0

Buat satu barisan sepanjang 12 elemen dengan aturan berulang +3 → ×2 → −1 dengan nilai awal 4.

x = numeric(12)
x[1] = 4

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

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

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

Gunakan fungsi seq() dan rep() di R untuk membentuk satu vektor dengan hasil akhir sebagai berikut:0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6

rep(seq(0,6, length=4), each=2, times=3)

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

Lakukan simulasi pelemparan koin sebanyak 30 kali menggunakan fungsi sample() di R, dengan ketentuan sebagai berikut: Hasil 0 memiliki peluang kemunculan 45% Hasil 1 memiliki peluang kemunculan 55% Gunakan set.seed() agar hasil simulasi dapat direproduksi

set.seed(2)
sample(0:1, 30, replace=T, prob = c(0.45, 0.55))

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

Seorang pemilik UMKM mencatat data penjualan selama beberapa hari. Informasi yang dikumpulkan meliputi Hari, Jumlah Produk Terjual, Harga Satuan, Total Pendapatan. Buat sebuah dataframe dengan keempat kolom tersebut (minimal 4 baris), lalu tampilkan summary().

Hari = c("Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu", "Minggu")
J.Terjual = c(15,50,20,30,50,80,100)
Harga_Satuan = c(12000, 12000, 12000, 12000, 12000, 12000, 12000)
data_penjualan = data.frame(
  Hari,
  J.Terjual,
  Harga_Satuan,
  Total_Pendapatan = J.Terjual*Harga_Satuan
)
data_penjualan

##     Hari J.Terjual Harga_Satuan Total_Pendapatan
## 1  Senin        15        12000           180000
## 2 Selasa        50        12000           600000
## 3   Rabu        20        12000           240000
## 4  Kamis        30        12000           360000
## 5  Jumat        50        12000           600000
## 6  Sabtu        80        12000           960000
## 7 Minggu       100        12000          1200000

summary(data_penjualan)

##      Hari             J.Terjual       Harga_Satuan   Total_Pendapatan 
##  Length:7           Min.   : 15.00   Min.   :12000   Min.   : 180000  
##  Class :character   1st Qu.: 25.00   1st Qu.:12000   1st Qu.: 300000  
##  Mode  :character   Median : 50.00   Median :12000   Median : 600000  
##                     Mean   : 49.29   Mean   :12000   Mean   : 591429  
##                     3rd Qu.: 65.00   3rd Qu.:12000   3rd Qu.: 780000  
##                     Max.   :100.00   Max.   :12000   Max.   :1200000

Dasar Software R untuk Simulasi

Muhammad Kholilullah

2026-02-23