Latihan PSS- Week 2

1.

## [1] 1

# Membuat dataframe
data_nilai <- data.frame(
  Nama = c("Rara", "Riri", "Ruru", "Rero"),
  Nilai = c(95, 96, 97, 96)
)

# Mengecek mean
mean(data_nilai$Nilai)

## [1] 96

# Menampilkan summary
summary(data_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.

## [1] 2

# Membuat vektor kosong
barisan <- numeric(12)

# Nilai awal
barisan[1] <- 4

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

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

barisan

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

3.

## [1] 3

v <- rep(rep(seq(0,6,2), each = 2), times = 3)
v

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

## [1] 4

set.seed(123)

simulasi_dadu <- sample(
  c(0,1), 
  30, 
  replace = TRUE, 
  prob = c(0.45, 0.55)
)

simulasi_dadu

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

# Melihat proporsi hasil
table(simulasi_dadu)

## simulasi_dadu
##  0  1 
## 17 13

prop.table(table(simulasi_dadu))

## simulasi_dadu
##         0         1 
## 0.5666667 0.4333333

5.

## [1] 5

# Membuat dataframe UMKM
data_umkm <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis"),
  Jumlah_Terjual = c(10, 15, 12, 20),
  Harga_Satuan = c(5000, 5000, 5000, 5000)
)

# Menghitung Total Pendapatan
data_umkm$Total_Pendapatan <- data_umkm$Jumlah_Terjual * data_umkm$Harga_Satuan

# Menampilkan dataframe
data_umkm

##     Hari Jumlah_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin             10         5000            50000
## 2 Selasa             15         5000            75000
## 3   Rabu             12         5000            60000
## 4  Kamis             20         5000           100000

# Menampilkan summary
summary(data_umkm)

##      Hari           Jumlah_Terjual   Harga_Satuan  Total_Pendapatan
##  Length:4           Min.   :10.00   Min.   :5000   Min.   : 50000  
##  Class :character   1st Qu.:11.50   1st Qu.:5000   1st Qu.: 57500  
##  Mode  :character   Median :13.50   Median :5000   Median : 67500  
##                     Mean   :14.25   Mean   :5000   Mean   : 71250  
##                     3rd Qu.:16.25   3rd Qu.:5000   3rd Qu.: 81250  
##                     Max.   :20.00   Max.   :5000   Max.   :100000