Dataframe

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("mamas", "memes", "mimis", "mumus", "momos"),  # Kolom Nama
  Nilai = c(96,97,92,98,97)                   # Kolom nilai
)
summary(data_nilai)

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

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

x1 <- numeric(12)   # panjang barisan
x1[1] <- 4          # nilai awal

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

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

x1

##  [1]   4   7  14  13  16  32  31  34  68  67  70 140

3. 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

x2 <- seq(0, 6, length=4)
rep(c(x2), 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

4. 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"),
  Jumlah_Produk_Terjual = c(10, 21, 8, 7, 8),
  Harga_Satuan = c(10000, 10000, 10000, 10000, 10000)
)
data_penjualan$Total_Pendapatan <- 
  data_penjualan$Jumlah_Produk_Terjual * data_penjualan$Harga_Satuan
summary(data_penjualan)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:5           Min.   : 7.0          Min.   :10000   Min.   : 70000  
##  Class :character   1st Qu.: 8.0          1st Qu.:10000   1st Qu.: 80000  
##  Mode  :character   Median : 8.0          Median :10000   Median : 80000  
##                     Mean   :10.8          Mean   :10000   Mean   :108000  
##                     3rd Qu.:10.0          3rd Qu.:10000   3rd Qu.:100000  
##                     Max.   :21.0          Max.   :10000   Max.   :210000

print(data_penjualan)

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    10        10000           100000
## 2 Selasa                    21        10000           210000
## 3   Rabu                     8        10000            80000
## 4  Kamis                     7        10000            70000
## 5  Jumat                     8        10000            80000