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

nilai_mahasiswa <- data.frame(
  Nama = c("Atsumu", "Sakusa","Ushijima","Akaashi","Kuroo"),
  Nilai = c(95,97,90,100,98)
)
nilai_mahasiswa
summary(nilai_mahasiswa)
##      Nama               Nilai    
##  Length:5           Min.   : 90  
##  Class :character   1st Qu.: 95  
##  Mode  :character   Median : 97  
##                     Mean   : 96  
##                     3rd Qu.: 98  
##                     Max.   :100

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

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

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

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 <- rep(seq(0,6, length=4), each=2, times=3)
x2
##  [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(1)
sample(c(0,1),30, replace=TRUE,prob=c(0.45,0.55))
##  [1] 1 1 0 0 1 0 0 0 0 1 1 1 0 1 0 1 0 0 1 0 0 1 0 1 1 1 1 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().

penjualan_mie_ayam <-data.frame(
  Hari = c("Senin","Selasa","Rabu","Kamis","Jumat"),
  Jumlah_Produk_Terjual =c(48,31,24,34,32),
  Harga_Satuan =c(10000,10000,10000,10000,10000),
  Total_Pendapatan = c(480000,310000,240000,340000,320000)
)
penjualan_mie_ayam
summary(penjualan_mie_ayam)
##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:5           Min.   :24.0          Min.   :10000   Min.   :240000  
##  Class :character   1st Qu.:31.0          1st Qu.:10000   1st Qu.:310000  
##  Mode  :character   Median :32.0          Median :10000   Median :320000  
##                     Mean   :33.8          Mean   :10000   Mean   :338000  
##                     3rd Qu.:34.0          3rd Qu.:10000   3rd Qu.:340000  
##                     Max.   :48.0          Max.   :10000   Max.   :480000