Dasar Software R untuk Simulasi

# 1. 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().

data_nilai <- data.frame(
  Nama = c("Aina", "azka", "diva", "nisa", "raha"),   # Kolom Nama
  Nilai = c(90, 95, 100, 99, 96)                      # Kolom Nilai
)

data_nilai

##   Nama Nilai
## 1 Aina    90
## 2 azka    95
## 3 diva   100
## 4 nisa    99
## 5 raha    96

# Menghitung rata-rata
mean(data_nilai$Nilai)

## [1] 96

# Menampilkan ringkasan statistik
summary(data_nilai)

##      Nama               Nilai    
##  Length:5           Min.   : 90  
##  Class :character   1st Qu.: 95  
##  Mode  :character   Median : 96  
##                     Mean   : 96  
##                     3rd Qu.: 99  
##                     Max.   :100

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

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

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

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

a <- seq(0, 6, by = 2)
b <- rep(a, each = 2)
hasil <- rep(b, 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, Lakukan simulasi pelemparan dadu sebanyak 30 kali menggunakan fungsi sample() di R, dengan ketentuan sebagai berikut:
# a. Hasil 0 memiliki peluang kemunculan 45%
# b. Hasil 1 memiliki peluang kemunculan 55%
# Gunakan set.seed() agar hasil simulasi dapat direproduksi

set.seed(123)

simulasi <- sample(
  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

table(simulasi)

## simulasi
##  0  1 
## 17 13

# 5. 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")
Jumlah_Produk_Terjual <- c(20, 15, 25, 18)
Harga_Satuan <- c(10000, 10000, 10000, 10000)

Total_Pendapatan <- Jumlah_Produk_Terjual * Harga_Satuan

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