Latihan 1 PSS

"Latihan nomor 1"

## [1] "Latihan nomor 1"

data_nilai <- data.frame(
  Nama  = c("Ani", "Budi", "Citra", "Deni"),
  Nilai = c(95, 96, 97, 96)
)

mean(data_nilai$Nilai)

## [1] 96

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

"Latihan nomor 2"

## [1] "Latihan nomor 2"

x <- numeric(12)
x[1] <- 1

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

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

x

##  [1]  1  4  8  7 10 20 19 22 44 43 46 92

"Latihan nomor 3"

## [1] "Latihan nomor 3"

rep(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

"Latihan nomor 4"

## [1] "Latihan nomor 4"

set.seed(42)

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

hasil

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

table(hasil)

## hasil
##  0  1 
## 17 13

"Latihan nomor 5"

## [1] "Latihan nomor 5"

data_penjualan <- data.frame(
  Hari = c("Senin", "Selasa", "Rabu", "Kamis", "Jumat"),
  Jumlah_Terjual = c(20, 35, 30, 25, 40),
  Harga_Satuan = c(10000, 10000, 10000, 10000, 10000),
  Total_Pendapatan = c(200000, 350000, 300000, 250000, 400000)
)

summary(data_penjualan)

##      Hari           Jumlah_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:5           Min.   :20     Min.   :10000   Min.   :200000  
##  Class :character   1st Qu.:25     1st Qu.:10000   1st Qu.:250000  
##  Mode  :character   Median :30     Median :10000   Median :300000  
##                     Mean   :30     Mean   :10000   Mean   :300000  
##                     3rd Qu.:35     3rd Qu.:10000   3rd Qu.:350000  
##                     Max.   :40     Max.   :10000   Max.   :400000