Latihan

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

# Nomor 1 
data_mahasiswa <- data.frame(
  Nama = c("Anton", "Budi", "Citra", "Dewi", "Irfan"),  # Kolom Nama
  Nilai = c(93, 96, 94, 97, 100)  # Kolom Nilai
)
summary(data_mahasiswa)
##      Nama               Nilai    
##  Length:5           Min.   : 93  
##  Class :character   1st Qu.: 94  
##  Mode  :character   Median : 96  
##                     Mean   : 96  
##                     3rd Qu.: 97  
##                     Max.   :100

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

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

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

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

x2
##  [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.

# Membuat urutan 0, 2, 4, 6 dengan masing-masing muncul 2 kali, diulang 3 kali
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

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

prop.table(table(simulasi))
## simulasi
##         0         1 
## 0.4333333 0.5666667

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_umkm <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis"),
  Jumlah_Terjual = c(15, 20, 12, 25),
  Harga_Satuan = c(10000, 13000, 15000, 12000)
)

data_umkm$Total_Pendapatan <- data_umkm$Jumlah_Terjual * data_umkm$Harga_Satuan

data_umkm
##     Hari Jumlah_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin             15        10000           150000
## 2 Selasa             20        13000           260000
## 3   Rabu             12        15000           180000
## 4  Kamis             25        12000           300000
summary(data_umkm)
##      Hari           Jumlah_Terjual   Harga_Satuan   Total_Pendapatan
##  Length:4           Min.   :12.00   Min.   :10000   Min.   :150000  
##  Class :character   1st Qu.:14.25   1st Qu.:11500   1st Qu.:172500  
##  Mode  :character   Median :17.50   Median :12500   Median :220000  
##                     Mean   :18.00   Mean   :12500   Mean   :222500  
##                     3rd Qu.:21.25   3rd Qu.:13500   3rd Qu.:270000  
##                     Max.   :25.00   Max.   :15000   Max.   :300000