Dasar Software R untuk Simulasi

# Buat dataframe dengan kolom Nama dan Nilai (minimal 4 baris)
data_nilai <- data.frame (
  Nama = c("Aina", "Azka", "Raha", "Dipa", "Nisa"),
  Nilai = c(97, 95, 96, 94, 98)
)
data_nilai

##   Nama Nilai
## 1 Aina    97
## 2 Azka    95
## 3 Raha    96
## 4 Dipa    94
## 5 Nisa    98

# Atur nilai pada kolom Nilai sehingga rata-rata (mean) dari nilai tersebut adalah 96
mean(data_nilai$Nilai)

## [1] 96

# Tampilkan ringkasan statistik dari dataframe tersebut menggunakan fungsi summary()
summary(data_nilai)

##      Nama               Nilai   
##  Length:5           Min.   :94  
##  Class :character   1st Qu.:95  
##  Mode  :character   Median :96  
##                     Mean   :96  
##                     3rd Qu.:97  
##                     Max.   :98

# Buat satu barisan sepanjang 12 elemen dengan aturan berulang +3 → ×2 → −1 dengan nilai awal 4
x <- numeric(12)  # banyak elemen
x[1] <- 4         # nilai awal

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

for (i in 2:length(x))  # i = 2 karena membutuhkan nilai sebelumnya (i - 1) dan diulang sebanyak x elemen
{
    aturan <- pola[(i - 2) %% length(pola) + 1] # saat i = 2 maka terambil pola[1], i = 3 terambil pola[2], i = 4 terambil pola[3], i = 5 terambil pola[1], dst
    
    if (aturan == "+3") x[i] <- x[i-1] + 3 # terambil pola[1]
    if (aturan == "*2") x[i] <- x[i-1] * 2 # terambil pola[2]
    if (aturan == "-1") x[i] <- x[i-1] - 1 # terambil pola[3]
}
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
x2 <- seq(0, 6, length = 4) # membuat barisan yang dimulai dari 0 hingga 6 dengan 4 elemen
rep(x2, each = 2, 3) # dari 4 elemen, masing-masing elemen ada 2 dan hal tersebut diulang 3 kali

##  [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(1)
sample(c(0, 1), 30, replace = TRUE, prob = c(0.45, 0.55))

##  [1] 1 1 0 0 1 0 0 0 0 1 1 1 0 1 0 1 0 0 1 0 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()
data_umkm <- data.frame (
  Hari = c("Senin", "Selasa", "Rabu", "Kamis", "Jumat"),
  Jumlah_Produk_Terjual = c(20, 24, 18, 23, 30),
  Harga_Satuan = c(15000, 15000,15000, 15000, 15000), 
  Total_Pendapatan = c(300000, 360000, 270000, 345000, 450000)
)
summary (data_umkm)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:5           Min.   :18            Min.   :15000   Min.   :270000  
##  Class :character   1st Qu.:20            1st Qu.:15000   1st Qu.:300000  
##  Mode  :character   Median :23            Median :15000   Median :345000  
##                     Mean   :23            Mean   :15000   Mean   :345000  
##                     3rd Qu.:24            3rd Qu.:15000   3rd Qu.:360000  
##                     Max.   :30            Max.   :15000   Max.   :450000