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_nilai <- data.frame(
  Nama = c("Nami","dina","susi","budi","yusuf","hilmi"),
  Nilai = c(94, 95, 96, 97, 98, 96)
)

Data_nilai
##    Nama Nilai
## 1  Nami    94
## 2  dina    95
## 3  susi    96
## 4  budi    97
## 5 yusuf    98
## 6 hilmi    96
summary(Data_nilai)
##      Nama               Nilai      
##  Length:6           Min.   :94.00  
##  Class :character   1st Qu.:95.25  
##  Mode  :character   Median :96.00  
##                     Mean   :96.00  
##                     3rd Qu.:96.75  
##                     Max.   :98.00

2.Buat satu barisan sepanjang 12 elemen dengan aturan berulang +3 → ×2 → −1 dengan nilai awal 4.

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

pola <- c("+3", "*2", "-1")

for (i in 2:12) {
  aturan <- pola[((i - 2) %% 3) + 1]
  
  if (aturan == "+3") barisan[i] <- barisan[i-1] + 3
  if (aturan == "*2") barisan[i] <- barisan[i-1] * 2
  if (aturan == "-1") barisan[i] <- barisan[i-1] - 1
}

barisan
##  [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
rep(seq(0,6,length=4),each = 2, times = 3)
##  [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(1)

sample(c(0, 1), 30, replace = TRUE, prob = c(0.45, 0.55))
##  [1] 1 1 0 0 1 0 0 0 0 1 1 1 0 1 0 1 0 0 1 0 0 1 0 1 1 1 1 1 0 1

5.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().

data_penjualan<-data.frame(
  Hari=c("senin","selasa", "rabu","kamis","jumat","sabtu"),
  jumlah_terjual=c(30,38,47,42,51,33),
  harga_satuan=c(10000,12000,16000,14000,12000,10000)
)

data_penjualan$total_pendapatan<-data_penjualan$jumlah_terjual*data_penjualan$harga_satuan

data_penjualan
##     Hari jumlah_terjual harga_satuan total_pendapatan
## 1  senin             30        10000           300000
## 2 selasa             38        12000           456000
## 3   rabu             47        16000           752000
## 4  kamis             42        14000           588000
## 5  jumat             51        12000           612000
## 6  sabtu             33        10000           330000
summary(data_penjualan)
##      Hari           jumlah_terjual   harga_satuan   total_pendapatan
##  Length:6           Min.   :30.00   Min.   :10000   Min.   :300000  
##  Class :character   1st Qu.:34.25   1st Qu.:10500   1st Qu.:361500  
##  Mode  :character   Median :40.00   Median :12000   Median :522000  
##                     Mean   :40.17   Mean   :12333   Mean   :506333  
##                     3rd Qu.:45.75   3rd Qu.:13500   3rd Qu.:606000  
##                     Max.   :51.00   Max.   :16000   Max.   :752000