R Notebook

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

1. Membuat data frame nama dan nilai

nama <- c("Alice", "Marcel", "Abi", "Jackson")
# Mengatur nilai agar rata-rata 96 maka totalnya harus 384 saat dibagi 4
nilai <- c(95, 97, 96, 96) 

df_nilai <- data.frame(Nama = nama, Nilai = nilai)

print(df_nilai)

##      Nama Nilai
## 1   Alice    95
## 2  Marcel    97
## 3     Abi    96
## 4 Jackson    96

print(paste("Rata-rata Nilai adalah", mean(df_nilai$Nilai)))

## [1] "Rata-rata Nilai adalah 96"

summary(df_nilai)

##      Nama               Nilai      
##  Length:4           Min.   :95.00  
##  Class :character   1st Qu.:95.75  
##  Mode  :character   Median :96.00  
##                     Mean   :96.00  
##                     3rd Qu.:96.25  
##                     Max.   :97.00

2. Barisan bilangan dengan aturan berulang

n <- 12               
barisan <- numeric(n)
barisan[1] <- 4       

for (i in 2:n) {
  if ((i - 1) %% 3 == 1) {
    # Aturan ke-1: Tambah 3
    barisan[i] <- barisan[i - 1] + 3
  } else if ((i - 1) %% 3 == 2) {
    # Aturan ke-2: Kali 2
    barisan[i] <- barisan[i - 1] * 2
  } else {
    # Aturan ke-3: Kurang 1
    barisan[i] <- barisan[i - 1] - 1
  }
}

print(barisan)

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

3. Menggunakan seq() dan rep()

vektor <- rep(rep(seq(0, 6, 2), each = 2), 3)
print(vektor)

##  [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. Simulasi pelemparan koin

set.seed(123)

# Keterangan: 45% dari 30 adalah 13 (untuk hasil 0)
#             55% dari 30 adalah 17 (untuk hasil 1)
koin <- c(rep(0, 13), rep(1, 17))

hasil_simulasi <- sample(koin, size = 30, replace = FALSE)

print(hasil_simulasi)

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

table(hasil_simulasi)

## hasil_simulasi
##  0  1 
## 13 17

5. Dataframe penjualan UMKM

data_umkm <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis", "Jumat"),
  Jumlah_Produk_Terjual = c(20, 15, 25, 18, 22),
  Harga_Satuan = c(15000, 15000, 15000, 15000, 15000)
)

data_umkm$Total_Pendapatan <- data_umkm$Jumlah_Produk_Terjual * data_umkm$Harga_Satuan

print(data_umkm)

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    20        15000           300000
## 2 Selasa                    15        15000           225000
## 3   Rabu                    25        15000           375000
## 4  Kamis                    18        15000           270000
## 5  Jumat                    22        15000           330000

summary(data_umkm)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:5           Min.   :15            Min.   :15000   Min.   :225000  
##  Class :character   1st Qu.:18            1st Qu.:15000   1st Qu.:270000  
##  Mode  :character   Median :20            Median :15000   Median :300000  
##                     Mean   :20            Mean   :15000   Mean   :300000  
##                     3rd Qu.:22            3rd Qu.:15000   3rd Qu.:330000  
##                     Max.   :25            Max.   :15000   Max.   :375000