Membuat dataframe Nama dan Nilai dengan rata rata 96, lalu summary()

data_nilai_mahasiswa <- data.frame(
  nama <-c("Isa","Fitri","Ulul","Firdaus"),
  nilai <-c(94, 95, 97, 98)
)

data_nilai_mahasiswa <- data.frame(nama, nilai)

mean(data_nilai_mahasiswa$nilai)

## [1] 96

summary(data_nilai_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

Membuat barisan 12 elemen dengan aturan +3 lalu ×2 lalu −1, nilai awal 4

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

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

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

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

Menggunakan seq() dan rep() untuk membentuk vektor: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

Simulasi pelemparan dadu 30 kali dengan peluang berbeda

set.seed(11)
sample(0:1, 30, replace = TRUE, prob = c(0.45, 0.55))

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

Dataframe penjualan UMKM dan summary()

data_penjualan <- data.frame(
  Hari = c("Selasa", "Kamis", "Sabtu", "Minggu"),
  Jumlah_Produk_Terjual = c(25, 30, 20, 14),
  Harga_Satuan = c(12000, 10500, 11300, 12800)
)

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 Selasa                    25        12000           300000
## 2  Kamis                    30        10500           315000
## 3  Sabtu                    20        11300           226000
## 4 Minggu                    14        12800           179200

summary(data_penjualan)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:4           Min.   :14.00         Min.   :10500   Min.   :179200  
##  Class :character   1st Qu.:18.50         1st Qu.:11100   1st Qu.:214300  
##  Mode  :character   Median :22.50         Median :11650   Median :263000  
##                     Mean   :22.25         Mean   :11650   Mean   :255050  
##                     3rd Qu.:26.25         3rd Qu.:12200   3rd Qu.:303750  
##                     Max.   :30.00         Max.   :12800   Max.   :315000