Latihan Simulasi R

library(charlatan)

## Warning: package 'charlatan' was built under R version 4.4.3

#1 Membuat data frame dengan kolom nama dan Nilai dengan rata-rata 96

set.seed(123)
Nama <- ch_name(n=30)
Nilai <- round(rnorm(30, mean = 96, sd = 0.5))

Nilai_Ulangan <- data.frame(Nama = Nama, Nilai = Nilai)
summary(Nilai_Ulangan)

##      Nama               Nilai      
##  Length:30          Min.   :95.00  
##  Class :character   1st Qu.:96.00  
##  Mode  :character   Median :96.00  
##                     Mean   :96.20  
##                     3rd Qu.:96.75  
##                     Max.   :97.00

#2. Buat satu barisan sepanjang 12 elemen dengan aturan berulang +3, *2, -1 dengan nilai awal 4

x4 <- numeric(12)
pola <- c("+3", "*2", "-1")
x4[1] <- 4

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

# 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, time = 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

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

## koin
##  0  1 
## 14 16

prop.table(table(koin))

## koin
##         0         1 
## 0.4666667 0.5333333

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

set.seed(123)

# Membuat data 30 hari
penjualan <- data.frame(
  Hari = paste("Hari", 1:30),
  Jumlah_Produk_Terjual = sample(15:50, 30, replace = TRUE),
  Harga_Satuan = sample(c(12000, 15000, 18000), 30, replace = TRUE)
)

penjualan$Total_Pendapatan <- penjualan$Jumlah_Produk_Terjual * penjualan$Harga_Satuan

head(penjualan)

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1 Hari 1                    45        12000           540000
## 2 Hari 2                    29        18000           522000
## 3 Hari 3                    28        12000           336000
## 4 Hari 4                    17        18000           306000
## 5 Hari 5                    28        15000           420000
## 6 Hari 6                    39        12000           468000

summary(penjualan)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:30          Min.   :17.00         Min.   :12000   Min.   :228000  
##  Class :character   1st Qu.:23.25         1st Qu.:12000   1st Qu.:364500  
##  Mode  :character   Median :30.00         Median :15000   Median :474000  
##                     Mean   :32.63         Mean   :14900   Mean   :477100  
##                     3rd Qu.:41.00         3rd Qu.:18000   3rd Qu.:576000  
##                     Max.   :50.00         Max.   :18000   Max.   :738000