PRAKTIKUM DASAR UNTUK SIMULASI

Latihan

1. a. Buat dataframe dengan kolom Nama dan Nilai (minimal 4 baris). Atur nilai pada kolom Nilai sehingga rata-rata (mean) dari nilai tersebut adalah 96.

   data_nilai <- data.frame(
     Nama = c("udin","idin","adin","odin","edin"),
     Nilai = c(97,95,93,99,96)
   )
   data_nilai

   ##   Nama Nilai
   ## 1 udin    97
   ## 2 idin    95
   ## 3 adin    93
   ## 4 odin    99
   ## 5 edin    96

   b. Selanjutnya, tampilkan ringkasan statistik dari dataframe tersebut menggunakan fungsi summary().

   summary(data_nilai)

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

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

   barisan <- numeric(12)
   barisan[1] <- 4
   
   pola_barisan <- c("+3","*2","-1")
   for (i in 2:length(barisan)) {
     aturan <- pola_barisan[(i - 2) %% length(pola_barisan) + 1]
   
     if (aturan == "+3") barisan[i] <- barisan[i-1] + 3
     if (aturan == "*2") barisan[i] <- barisan[i-1] * 2
     if (aturan == "-1") barisan[i] <- barisan[i-1] - 1
   }
   barisan

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

   rep(seq(0,6,2), 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

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(123)
   sample(0:1,30,replace = TRUE, prob = c(0.45,05))

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

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","Jumat","Sabtu","Minggu")
     Jumlah_produk_terjual <- c(20,10,20,30,35,50,100)
     Harga_satuan <- c(10000, 10000 ,10000 ,10000,10000,20000,20000)
     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        10000           200000
   ## 2 Selasa                    10        10000           100000
   ## 3   Rabu                    20        10000           200000
   ## 4  Kamis                    30        10000           300000
   ## 5  Jumat                    35        10000           350000
   ## 6  Sabtu                    50        20000          1000000
   ## 7 Minggu                   100        20000          2000000

    summary(data_penjualan)

   ##      Hari           Jumlah_produk_terjual  Harga_satuan   Total_Pendapatan 
   ##  Length:7           Min.   : 10.00        Min.   :10000   Min.   : 100000  
   ##  Class :character   1st Qu.: 20.00        1st Qu.:10000   1st Qu.: 200000  
   ##  Mode  :character   Median : 30.00        Median :10000   Median : 300000  
   ##                     Mean   : 37.86        Mean   :12857   Mean   : 592857  
   ##                     3rd Qu.: 42.50        3rd Qu.:15000   3rd Qu.: 675000  
   ##                     Max.   :100.00        Max.   :20000   Max.   :2000000