Tugas 1 PSS

Aaron Christian Daniel 2404220037

Nomor 1

Nilai_mahasiswa <- data.frame(
  Nama = c("Aaron", "Shata", "Alverrel", "Dimas"),
  Nilai = c(95, 97, 95, 97)
)

print(Nilai_mahasiswa)

##       Nama Nilai
## 1    Aaron    95
## 2    Shata    97
## 3 Alverrel    95
## 4    Dimas    97

rata_rata <- mean(Nilai_mahasiswa$Nilai)
rata_rata

## [1] 96

summary(Nilai_mahasiswa)

##      Nama               Nilai   
##  Length:4           Min.   :95  
##  Class :character   1st Qu.:95  
##  Mode  :character   Median :96  
##                     Mean   :96  
##                     3rd Qu.:97  
##                     Max.   :97

Nomor 2

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

Nomor 3

rep(seq(from = 0, to = 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

Nomor 4

set.seed(123)

simulasi <- sample(
  x = c(0, 1),             # Kemungkinan hasil pelemparan (0 atau 1)
  size = 30,               # Jumlah pelemparan / simulasi
  replace = TRUE,          # replace = TRUE wajib digunakan karena dadu dilempar berulang kali
  prob = c(0.45, 0.55)     # Peluang masing-masing hasil (45% untuk 0, 55% untuk 1)
)

print(simulasi)

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

table(simulasi)

## simulasi
##  0  1 
## 17 13

Nomor 5

Hari <- c("Senin", "Selasa", "Rabu", "Kamis", "Jumat")
Jumlah_Produk_Terjual <- c(62, 30, 18, 12, 2)
Harga_Satuan <- c(10, 12, 15, 20, 50)

Total_Pendapatan <- Jumlah_Produk_Terjual * Harga_Satuan

data <- data.frame(
  Hari = Hari,
  Jumlah_Produk_Terjual = Jumlah_Produk_Terjual,
  Harga_Satuan = Harga_Satuan,
  Total_Pendapatan = Total_Pendapatan
)

print(data)

##     Hari Jumlah_Produk_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin                    62           10              620
## 2 Selasa                    30           12              360
## 3   Rabu                    18           15              270
## 4  Kamis                    12           20              240
## 5  Jumat                     2           50              100

summary(data)

##      Hari           Jumlah_Produk_Terjual  Harga_Satuan  Total_Pendapatan
##  Length:5           Min.   : 2.0          Min.   :10.0   Min.   :100     
##  Class :character   1st Qu.:12.0          1st Qu.:12.0   1st Qu.:240     
##  Mode  :character   Median :18.0          Median :15.0   Median :270     
##                     Mean   :24.8          Mean   :21.4   Mean   :318     
##                     3rd Qu.:30.0          3rd Qu.:20.0   3rd Qu.:360     
##                     Max.   :62.0          Max.   :50.0   Max.   :620