Latihan

#nomor  1
data_nilai <- data.frame(
  Nama = c("S.Coups", "Jeonghan", "Joshua", "Jun", "Hoshi", "Wonwoo", "Woozi", "DK", "Mingyu", "The8", "Seungkwan", "Vernon", "Dino"),
  Nilai = c(92, 95, 97, 94, 96, 98, 100, 93, 99, 95, 97, 96, 96)
)

summary(data_nilai)

##      Nama               Nilai    
##  Length:13          Min.   : 92  
##  Class :character   1st Qu.: 95  
##  Mode  :character   Median : 96  
##                     Mean   : 96  
##                     3rd Qu.: 97  
##                     Max.   :100

#nomor 2
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

#nomor 3
x <- rep(seq(0, 6, by = 2), each = 2, times = 3)

x

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

#nomor 4
set.seed(127)

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

sim

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

#nomor 5
data_umkm <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu", "Minggu"),
  Jumlah_Produk_Terjual = c(10, 15, 8, 20, 18, 25, 22),
  Harga_Satuan = rep(5000,7)
)

data_umkm$Total_Pendapatan <- 
  data_umkm$Jumlah_Produk_Terjual * data_umkm$Harga_Satuan

data_umkm

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    10         5000            50000
## 2 Selasa                    15         5000            75000
## 3   Rabu                     8         5000            40000
## 4  Kamis                    20         5000           100000
## 5  Jumat                    18         5000            90000
## 6  Sabtu                    25         5000           125000
## 7 Minggu                    22         5000           110000

summary(data_umkm)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan  Total_Pendapatan
##  Length:7           Min.   : 8.00         Min.   :5000   Min.   : 40000  
##  Class :character   1st Qu.:12.50         1st Qu.:5000   1st Qu.: 62500  
##  Mode  :character   Median :18.00         Median :5000   Median : 90000  
##                     Mean   :16.86         Mean   :5000   Mean   : 84286  
##                     3rd Qu.:21.00         3rd Qu.:5000   3rd Qu.:105000  
##                     Max.   :25.00         Max.   :5000   Max.   :125000