Praktikum 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().

# Membuat dataframe
data_nilai <- data.frame(
  Nama  = c("Bahar","Dinda","Kholil","Azzam", "Tsalis"),
  Nilai = c(95, 96, 98, 97, 94)
)

data_nilai

##     Nama Nilai
## 1  Bahar    95
## 2  Dinda    96
## 3 Kholil    98
## 4  Azzam    97
## 5 Tsalis    94

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

2. 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

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

x2 <- rep(seq(0,6,2), each = 2, times = 3)
x2

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

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

hasil

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

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", "Jum'at")

Jumlah_Produk_Terjual <- c(20, 35, 30, 20, 15)

Harga_Satuan <- c(5000, 5000, 5000, 5000, 5000)

Total_Pendapatan <- Jumlah_Produk_Terjual * Harga_Satuan

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

data_penjualan

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    20         5000           100000
## 2 Selasa                    35         5000           175000
## 3   Rabu                    30         5000           150000
## 4  Kamis                    20         5000           100000
## 5 Jum'at                    15         5000            75000

summary(data_penjualan)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan  Total_Pendapatan
##  Length:5           Min.   :15            Min.   :5000   Min.   : 75000  
##  Class :character   1st Qu.:20            1st Qu.:5000   1st Qu.:100000  
##  Mode  :character   Median :20            Median :5000   Median :100000  
##                     Mean   :24            Mean   :5000   Mean   :120000  
##                     3rd Qu.:30            3rd Qu.:5000   3rd Qu.:150000  
##                     Max.   :35            Max.   :5000   Max.   :175000