Latihan Materi 1

nilai <- c(80, 75, 90, 85, 70)

n <- length(nilai)

jumlah <- 0

for (i in 1:n) {
  jumlah <- jumlah + nilai[i]
}

rata <- jumlah / n

total <- 0

for (i in 1:n) {
  total <- total + (nilai[i] - rata)^2
}

simpangan <- sqrt(total / (n - 1))

print(rata)

## [1] 80

print(simpangan)

## [1] 7.905694

maks_min_sekaligus <- function(data) {
  # Ambil elemen pertama dengan indeks [1] sebagai patokan awal
  maks <- data[1]
  mins <- data[1]
  
  # Telusuri semua elemen satu per satu
  for (angka in data) {
    if (angka > maks) maks <- angka
    if (angka < mins) mins <- angka
  }
  
  return(list(maks = maks, mins = mins))
}

# Contoh penggunaan
angka <- c(22, 13, 45, 7, 89, 3, 56)
hasil <- maks_min_sekaligus(angka)

cat("Maksimum:", hasil$maks, "\n")

## Maksimum: 89

cat("Minimum :", hasil$mins, "\n")

## Minimum : 3

# Mengambil data DAX

dax <- EuStockMarkets[, "DAX"]

# Menghitung kenaikan harian

kenaikan <- diff(dax)

# Mencari kenaikan terbesar

maks <- max(kenaikan)

# Mencari posisi kenaikan terbesar

idx <- which.max(kenaikan)

# Menentukan hari terjadinya kenaikan

hari <- idx + 1

# Menampilkan hasil

print("Kenaikan harian terbesar:")

## [1] "Kenaikan harian terbesar:"

print(maks)

## [1] 160.97

print("Posisi hari:")

## [1] "Posisi hari:"

print(hari)

## [1] 1653

print("Nilai DAX hari sebelumnya:")

## [1] "Nilai DAX hari sebelumnya:"

print(dax[idx])

## [1] 3645.69

print("Nilai DAX hari terjadinya kenaikan:")

## [1] "Nilai DAX hari terjadinya kenaikan:"

print(dax[hari])

## [1] 3806.66

M <- matrix(0, nrow = 3, ncol = 3)
print("Matriks awal:")

## [1] "Matriks awal:"

print(M)

##      [,1] [,2] [,3]
## [1,]    0    0    0
## [2,]    0    0    0
## [3,]    0    0    0

# Mengubah satu elemen

M[1, 2] <- 5

print("Matriks setelah diubah:")

## [1] "Matriks setelah diubah:"

print(M)

##      [,1] [,2] [,3]
## [1,]    0    5    0
## [2,]    0    0    0
## [3,]    0    0    0

M <- matrix(c(
  10, 45, 34, 43,
  63, 69, 22, 13,
  13, 82, 23, 60
), nrow = 3, byrow = TRUE)

jumlah <- numeric(4)
rata <- numeric(4)

for (j in 1:4) {

  total <- 0

  for (i in 1:3) {
    total <- total + M[i,j]
  }

  jumlah[j] <- total
  rata[j] <- total / 3
}

maks <- jumlah[1]
minggu <- 1

for (j in 2:4) {
  if (jumlah[j] > maks) {
    maks <- jumlah[j]
    minggu <- j
  }
}

print(jumlah)

## [1]  86 196  79 116

print(rata)

## [1] 28.66667 65.33333 26.33333 38.66667

cat("Penjualan tertinggi minggu ke-", minggu)

## Penjualan tertinggi minggu ke- 2