LATIHAN

#1.
nilai <- data.frame(
  Nama = c("Mark", "Renjun", "Jeno", "Haechan", "Jaemin", "Chenle", "Jisung"),
  Nilai = c(95, 97, 94, 98, 96, 95, 97)
)

summary(nilai)

##      Nama               Nilai   
##  Length:7           Min.   :94  
##  Class :character   1st Qu.:95  
##  Mode  :character   Median :96  
##                     Mean   :96  
##                     3rd Qu.:97  
##                     Max.   :98

#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

#3
ulang <- rep(seq(0, 6, length = 4), each = 2, times = 3)
ulang

##  [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
set.seed(31)
hasil_simulasi <- sample(c(0,1), size = 30, replace = TRUE, c(0.45, 0.55))

hasil_simulasi

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

#5
hari <- c("Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu", "Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu", "Minggu", "Senin")
jumlah_terjual <- c(65, 31, 42, 68, 25, 38, 51, 59, 70, 28, 45, 62, 35, 48, 55)

harga_satuan <- c(18500, 42000, 12800, 56200, 23500, 31900, 48000, 15300, 61500, 26800, 38200, 5300, 11900, 45600, 59800)

total_pendapatan <- jumlah_terjual * harga_satuan

data_umkm <- data.frame(
  Hari = hari,
  "Jumlah Produk Terjual" = jumlah_terjual,
  "Harga Satuan" = harga_satuan,
  "Total Pendapatan" = total_pendapatan
)

print(data_umkm)

##      Hari Jumlah.Produk.Terjual Harga.Satuan Total.Pendapatan
## 1   Senin                    65        18500          1202500
## 2  Selasa                    31        42000          1302000
## 3    Rabu                    42        12800           537600
## 4   Kamis                    68        56200          3821600
## 5   Jumat                    25        23500           587500
## 6   Sabtu                    38        31900          1212200
## 7  Minggu                    51        48000          2448000
## 8   Senin                    59        15300           902700
## 9  Selasa                    70        61500          4305000
## 10   Rabu                    28        26800           750400
## 11  Kamis                    45        38200          1719000
## 12  Jumat                    62         5300           328600
## 13  Sabtu                    35        11900           416500
## 14 Minggu                    48        45600          2188800
## 15  Senin                    55        59800          3289000

summary(data_umkm)

##      Hari           Jumlah.Produk.Terjual  Harga.Satuan   Total.Pendapatan 
##  Length:15          Min.   :25.00         Min.   : 5300   Min.   : 328600  
##  Class :character   1st Qu.:36.50         1st Qu.:16900   1st Qu.: 668950  
##  Mode  :character   Median :48.00         Median :31900   Median :1212200  
##                     Mean   :48.13         Mean   :33153   Mean   :1667427  
##                     3rd Qu.:60.50         3rd Qu.:46800   3rd Qu.:2318400  
##                     Max.   :70.00         Max.   :61500   Max.   :4305000