Data Frame

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("Wawan", "Fahmi", "Adhi", "Fitri", "Andy", "Resty"),
  Nilai = c(93, 96, 99, 96, 92, 100)
)
summary(data_nilai)

##      Nama               Nilai       
##  Length:6           Min.   : 92.00  
##  Class :character   1st Qu.: 93.75  
##  Mode  :character   Median : 96.00  
##                     Mean   : 96.00  
##                     3rd Qu.: 98.25  
##                     Max.   :100.00

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 koin 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(111)
sample(c(0, 1), 30, replace = TRUE, prob = c(0.45, 0.55))

##  [1] 0 0 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 0 1 0 1 1 1 1 0 1 0 1 0 0

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", "Minggu"),
  Jumlah_Produk_Terjual = c(47, 21, 29, 78, 31, 43, 37),
  Harga_Satuan = c(3000, 3000, 3000, 3000, 3000, 3000, 3000)
)
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:7           Min.   :21.00         Min.   :3000   Min.   : 63000  
##  Class :character   1st Qu.:30.00         1st Qu.:3000   1st Qu.: 90000  
##  Mode  :character   Median :37.00         Median :3000   Median :111000  
##                     Mean   :40.86         Mean   :3000   Mean   :122571  
##                     3rd Qu.:45.00         3rd Qu.:3000   3rd Qu.:135000  
##                     Max.   :78.00         Max.   :3000   Max.   :234000

print(data_penjualan)

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    47         3000           141000
## 2 Selasa                    21         3000            63000
## 3   Rabu                    29         3000            87000
## 4  Kamis                    78         3000           234000
## 5  Jumat                    31         3000            93000
## 6  Sabtu                    43         3000           129000
## 7 Minggu                    37         3000           111000