Simulasi Statistika

Membuat Dataframe dengan rata-rata = 96 dan ringkasannya

# Membuat dataframe
Nama <- c("Andri", "Bagas", "Ciko", "Dian")
Nilai <- c(90, 100, 98, 96)  # Mean = (90+100+98+96)/4 = 96

df_nilai <- data.frame(Nama, Nilai)

df_nilai

##    Nama Nilai
## 1 Andri    90
## 2 Bagas   100
## 3  Ciko    98
## 4  Dian    96

# Mengecek mean
mean(df_nilai$Nilai)

## [1] 96

# Menampilkan ringkasan statistik
summary(df_nilai)  

##      Nama               Nilai      
##  Length:4           Min.   : 90.0  
##  Class :character   1st Qu.: 94.5  
##  Mode  :character   Median : 97.0  
##                     Mean   : 96.0  
##                     3rd Qu.: 98.5  
##                     Max.   :100.0

Membuat barisan 12 elemen (+3 → ×2 → −1), nilai awal 4

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

# Pola operasi berulang
for(i in 2:12){
  if((i-1) %% 3 == 1){
    barisan[i] <- barisan[i-1] + 3
  } else if((i-1) %% 3 == 2){
    barisan[i] <- barisan[i-1] * 2
  } else {
    barisan[i] <- barisan[i-1] - 1
  }
}

barisan

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

Membentuk vektor dengan seq() dan rep()

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

# Mengulang 3 kali
hasil <- rep(pola, 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

Membuat simulasi pelemparan (0 peluang 45%, 1 peluang 55%)

set.seed(123)

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

hasil_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

# Frekuensi hasil
table(hasil_simulasi)

## hasil_simulasi
##  0  1 
## 17 13

Membuat Dataframe UMKM dan summary()

# Data UMKM
Hari <- c("Senin", "Selasa", "Rabu", "Kamis")
Jumlah_Terjual <- c(10, 15, 12, 20)
Harga_Satuan <- c(5000, 5000, 5000, 5000)
Total_Pendapatan <- Jumlah_Terjual * Harga_Satuan

df_umkm <- data.frame(
  Hari,
  Jumlah_Terjual,
  Harga_Satuan,
  Total_Pendapatan
)

df_umkm

##     Hari Jumlah_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin             10         5000            50000
## 2 Selasa             15         5000            75000
## 3   Rabu             12         5000            60000
## 4  Kamis             20         5000           100000

# Ringkasan statistik
summary(df_umkm)

##      Hari           Jumlah_Terjual   Harga_Satuan  Total_Pendapatan
##  Length:4           Min.   :10.00   Min.   :5000   Min.   : 50000  
##  Class :character   1st Qu.:11.50   1st Qu.:5000   1st Qu.: 57500  
##  Mode  :character   Median :13.50   Median :5000   Median : 67500  
##                     Mean   :14.25   Mean   :5000   Mean   : 71250  
##                     3rd Qu.:16.25   3rd Qu.:5000   3rd Qu.: 81250  
##                     Max.   :20.00   Max.   :5000   Max.   :100000