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("Wawan", "Fahmi","Fitri","Adhi"),
  Nilai <- rnorm(4,mean = 96)
)
print(data_nilai)
##    Nama Nilai....rnorm.4..mean...96.
## 1 Wawan                     97.39105
## 2 Fahmi                     94.22286
## 3 Fitri                     97.47972
## 4  Adhi                     96.04541
summary(data_nilai)
##      Nama           Nilai....rnorm.4..mean...96.
##  Length:4           Min.   :94.22               
##  Class :character   1st Qu.:95.59               
##  Mode  :character   Median :96.72               
##                     Mean   :96.28               
##                     3rd Qu.:97.41               
##                     Max.   :97.48

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

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

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

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

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

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

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(123)
sample(0:1,30, replace = TRUE, prob = c(0.55,0.45))
##  [1] 0 1 0 1 1 0 0 1 1 0 1 0 1 1 0 1 0 0 0 1 1 1 1 1 1 1 0 1 0 0

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","Jum'at","Sabtu","Minggu"),
  Jumlah_Produk_Terjual = c(25,27,23,20,30,35,30),
  Harga_Satuan = c(2000)
)
data_penjualan$Total_Pendapatan <- (data_penjualan$Jumlah_Produk_Terjual*data_penjualan$Harga_Satuan)
print(data_penjualan)
##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    25         2000            50000
## 2 Selasa                    27         2000            54000
## 3   Rabu                    23         2000            46000
## 4  Kamis                    20         2000            40000
## 5 Jum'at                    30         2000            60000
## 6  Sabtu                    35         2000            70000
## 7 Minggu                    30         2000            60000
summary(data_penjualan)
##      Hari           Jumlah_Produk_Terjual  Harga_Satuan  Total_Pendapatan
##  Length:7           Min.   :20.00         Min.   :2000   Min.   :40000   
##  Class :character   1st Qu.:24.00         1st Qu.:2000   1st Qu.:48000   
##  Mode  :character   Median :27.00         Median :2000   Median :54000   
##                     Mean   :27.14         Mean   :2000   Mean   :54286   
##                     3rd Qu.:30.00         3rd Qu.:2000   3rd Qu.:60000   
##                     Max.   :35.00         Max.   :2000   Max.   :70000