1. Buat dataframe dengan kolom Nama dan Nilai (minimal 4 baris). Atur nilai pada kolom Nilai sehingga rata-rata (mean) dari nilai tersebut adalah 96.Selanjutnya, tampilkan ringkasan statistik dari dataframe tersebut menggunakan fungsi summary().
data <- data.frame(
  Nama = ch_name(n=50),
  Nilai = round(runif(50, min = 92, max = 100)))
data
summary(data)
##      Nama               Nilai       
##  Length:50          Min.   : 92.00  
##  Class :character   1st Qu.: 94.00  
##  Mode  :character   Median : 96.50  
##                     Mean   : 96.24  
##                     3rd Qu.: 98.00  
##                     Max.   :100.00
  1. Buat satu barisan sepanjang 12 elemen dengan aturan berulang +3 → ×2 → −1 dengan nilai awal 4.
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
  1. Gunakan fungsi seq() dan rep() di R untuk membentuk satu vektor dengan hasil akhir sebagai berikut:0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6
replicate <- rep(seq(0,6,length=4),each=2,times=3)
replicate
##  [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
  1. Lakukan simulasi pelemparan dadu sebanyak 30 kali menggunakan fungsi sample() di R, dengan ketentuan sebagai berikut: Hasil 0 memiliki peluang kemunculan 45% Hasil 1 memiliki peluang kemunculan 55 Gunakan set.seed() agar hasil simulasi dapat direproduksi
set.seed(22)
coin <- rbinom(n=30, 1,0.55)
table(coin)
## coin
##  0  1 
## 13 17
prop.table(table(coin))
## coin
##         0         1 
## 0.4333333 0.5666667
  1. Seorang pemilik UMKM mencatat data penjualan selama beberapa hari. Informasi yang dikumpulkan meliputi Hari, Jumlah Produk Terjual, Harga Satuan, Total Pendapatan. Buat sebuah dataframe dengan keempat kolom tersebut (minimal 4 baris), lalu tampilkan summary().
set.seed(1)

penjualan <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis", "Jum'at", "Sabtu", "Minggu"),
  Jumlah_produk_terjual = sample(1:1000, 7),
  Harga_Satuan = sample(seq(1000,10000, by=500), 7)
)

penjualan$Total_Pendapatan <- 
  penjualan$Jumlah_produk_terjual * penjualan$Harga_Satuan

penjualan
summary(penjualan)
##      Hari           Jumlah_produk_terjual  Harga_Satuan  Total_Pendapatan 
##  Length:7           Min.   :129.0         Min.   :1000   Min.   : 129000  
##  Class :character   1st Qu.:385.0         1st Qu.:3250   1st Qu.:1818500  
##  Mode  :character   Median :509.0         Median :5500   Median :2790000  
##                     Mean   :550.4         Mean   :5500   Mean   :3371857  
##                     3rd Qu.:757.5         3rd Qu.:8000   3rd Qu.:5298250  
##                     Max.   :930.0         Max.   :9500   Max.   :6450500