Latihan Pemodelan Statistika dan Simulasi

1. Dataframe Nama & Nilai (mean = 96) + summary()

# Membuat dataframe
nama <- c("Defry","Tenli","Jeje","Moria")

# Atur nilai agar mean = 96
nilai <- c(95,96,97,96) # mean = (95+96+97+96)/4 = 96

df <- data.frame(Nama = nama,
                 Nilai = nilai)

# Cek mean
mean(df$Nilai)

## [1] 96

#Ringkasan Statistik
summary(df)

##      Nama               Nilai      
##  Length:4           Min.   :95.00  
##  Class :character   1st Qu.:95.75  
##  Mode  :character   Median :96.00  
##                     Mean   :96.00  
##                     3rd Qu.:96.25  
##                     Max.   :97.00

2. Barisan 12 elemen (+3 → ×2 → −1), nilai awal 4)

# Membuat barisan
hasil <- numeric(12)
hasil[1] <- 4

for(i in 2:12){
  if ((i-2) %% 3 == 0){
    hasil[i] <- hasil[i-1] + 3
  } else if ((i-2) %% 3 == 1){
      hasil[i] <- hasil[i-1]*2
  } else {
      hasil[i] <- hasil[i-1] - 1
    }
  }
hasil

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

3. Vektor dengan seq() dan rep()

# Membuat pola dasar
pola <- rep(seq(0, 6, by = 2), ech = 2)

# Mengulang 3 kali
vektor <- rep(pola, times = 3)

vektor

##  [1] 0 2 4 6 0 2 4 6 0 2 4 6

4. Simulasi lemparan dadu (sample) 30 kali

set.seed(123) # agar reproducible

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

5. Dataframe Penjualan UMKM + summary()

# Membuat dataframe penjualan
penjualan <- data.frame(
  Hari = c("Senin","Selasa","Rabu","Kamis"),
  Jumlah_Produk_Terjual = c(20, 15, 25,18),
  Harga_Satuan = c(10000, 10000, 10000,10000)
)

# Hitung total pendapatan
penjualan$Total_Pendapatan <-
  penjualan$Jumlah_Produk_Terjual * penjualan$Harga_Satuan

# Tampilkan summary
summary(penjualan)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:4           Min.   :15.00         Min.   :10000   Min.   :150000  
##  Class :character   1st Qu.:17.25         1st Qu.:10000   1st Qu.:172500  
##  Mode  :character   Median :19.00         Median :10000   Median :190000  
##                     Mean   :19.50         Mean   :10000   Mean   :195000  
##                     3rd Qu.:21.25         3rd Qu.:10000   3rd Qu.:212500  
##                     Max.   :25.00         Max.   :10000   Max.   :250000

# Lihat dataframe
penjualan

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    20        10000           200000
## 2 Selasa                    15        10000           150000
## 3   Rabu                    25        10000           250000
## 4  Kamis                    18        10000           180000