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

nama <- c("Febri", "Ana", "Dwi", "Rahayu")
nama
## [1] "Febri"  "Ana"    "Dwi"    "Rahayu"
nilai <- c(95, 97, 94, 98)
mean(nilai) 
## [1] 96
data_mahasiswa <- data.frame(
Nama = c("Febri", "Ana", "Dwi", "Rahayu"),
Nilai = c(95, 97, 94, 98)
)
summary(data_mahasiswa) 
##      Nama               Nilai      
##  Length:4           Min.   :94.00  
##  Class :character   1st Qu.:94.75  
##  Mode  :character   Median :96.00  
##                     Mean   :96.00  
##                     3rd Qu.:97.25  
##                     Max.   :98.00

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

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, by = 2), 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(10)
sample(c(0, 1), 
       size = 30, 
       replace = TRUE, 
       prob = c(0.45, 0.55))
##  [1] 1 1 1 0 1 1 1 1 0 1 0 0 1 0 1 1 1 1 1 0 0 0 0 1 1 0 0 1 0 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().

data_penjualan <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis", "Jumat"),
  Jumlah_Produk_Terjual = c(20, 35, 25, 40, 30),
  Harga_Satuan = c(15000, 30000, 45000, 16000, 11000)
)

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                    20        15000           300000
## 2 Selasa                    35        30000          1050000
## 3   Rabu                    25        45000          1125000
## 4  Kamis                    40        16000           640000
## 5  Jumat                    30        11000           330000
summary(data_penjualan)
##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan 
##  Length:5           Min.   :20            Min.   :11000   Min.   : 300000  
##  Class :character   1st Qu.:25            1st Qu.:15000   1st Qu.: 330000  
##  Mode  :character   Median :30            Median :16000   Median : 640000  
##                     Mean   :30            Mean   :23400   Mean   : 689000  
##                     3rd Qu.:35            3rd Qu.:30000   3rd Qu.:1050000  
##                     Max.   :40            Max.   :45000   Max.   :1125000