Penerapan Operasi Dasar R: Dataframe, Vektor, dan Simulasi

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

df_nilai <- data.frame(
  Nama  = c ("A", "B", "C", "D"),
  Nilai = c (90, 96, 100, 98)
)

mean(df_nilai$Nilai)

## [1] 96

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

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

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

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

3. Vektor pakai seq() dan rep()

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

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

4. Simulasi pelemparan dadu 30 kali (0 = 45%, 1 = 55%)

set.seed(1945)

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

hasil_dadu

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

table(hasil_dadu) / length(hasil_dadu)

## hasil_dadu
##   0   1 
## 0.6 0.4

5. Dataframe UMKM + summary()

df_umkm <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis"),
  JUmlah_Produk_Terjual = c(5000, 5000, 6000, 5500),
  Total_Pendapatan = c(50000, 75000, 48000, 110000)
)

summary(df_umkm)

##      Hari           JUmlah_Produk_Terjual Total_Pendapatan
##  Length:4           Min.   :5000          Min.   : 48000  
##  Class :character   1st Qu.:5000          1st Qu.: 49500  
##  Mode  :character   Median :5250          Median : 62500  
##                     Mean   :5375          Mean   : 70750  
##                     3rd Qu.:5625          3rd Qu.: 83750  
##                     Max.   :6000          Max.   :110000