#Nomor 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("Adhi", "Wawan", "Fitri", "fahmi"),
  rnorm(4, mean = 96)
)
print(data_nilai)
##    Nama rnorm.4..mean...96.
## 1  Adhi            94.79338
## 2 Wawan            96.21920
## 3 Fitri            95.08821
## 4 fahmi            96.68306
summary(data_nilai)
##      Nama           rnorm.4..mean...96.
##  Length:4           Min.   :94.79      
##  Class :character   1st Qu.:95.01      
##  Mode  :character   Median :95.65      
##                     Mean   :95.70      
##                     3rd Qu.:96.34      
##                     Max.   :96.68

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

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

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

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

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

#Nomor 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

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

#Nomor 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(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

#Nomor 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(50,60,40,45,50,100,120),
  Harga_Satuan = c(5000,5000,5000,5000,5000,5000,5000)
)
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                    50         5000           250000
## 2 Selasa                    60         5000           300000
## 3   Rabu                    40         5000           200000
## 4  Kamis                    45         5000           225000
## 5  Jumat                    50         5000           250000
## 6  Sabtu                   100         5000           500000
## 7 Minggu                   120         5000           600000
summary(data_penjualan)
##      Hari           Jumlah_Produk_Terjual  Harga_Satuan  Total_Pendapatan
##  Length:7           Min.   : 40.00        Min.   :5000   Min.   :200000  
##  Class :character   1st Qu.: 47.50        1st Qu.:5000   1st Qu.:237500  
##  Mode  :character   Median : 50.00        Median :5000   Median :250000  
##                     Mean   : 66.43        Mean   :5000   Mean   :332143  
##                     3rd Qu.: 80.00        3rd Qu.:5000   3rd Qu.:400000  
##                     Max.   :120.00        Max.   :5000   Max.   :600000