Latihan materi 1

# NOMOR 5
# Matriks penjualan 3 toko x 4 minggu
penjualan <- matrix(
  c(100, 120, 150, 130,
    90, 110, 140, 160,
    80, 130, 120, 150),
  nrow = 3,
  byrow = TRUE
)

# Menghitung jumlah dan rata-rata setiap kolom
jumlah <- c()
rata_rata <- c()
for (j in 1:4) {
  total <- 0
  for (i in 1:3) {
    total <- total + penjualan[i, j]
  }
  jumlah[j] <- total
  rata_rata[j] <- total / 3
}

# Menentukan minggu dengan penjualan tertinggi
minggu_tertinggi <- 1
for (j in 2:4) {
  if (jumlah[j] > jumlah[minggu_tertinggi]) {
    minggu_tertinggi <- j
  }
}

# Menampilkan hasil
cat("Matriks Penjualan:\n")

## Matriks Penjualan:

print(penjualan)

##      [,1] [,2] [,3] [,4]
## [1,]  100  120  150  130
## [2,]   90  110  140  160
## [3,]   80  130  120  150

cat("\nJumlah Penjualan Per Minggu:\n")

## 
## Jumlah Penjualan Per Minggu:

print(jumlah)

## [1] 270 360 410 440

cat("\nRata-rata Penjualan Per Minggu:\n")

## 
## Rata-rata Penjualan Per Minggu:

print(rata_rata)

## [1]  90.0000 120.0000 136.6667 146.6667

cat("\nMinggu dengan Penjualan Tertinggi:",
    minggu_tertinggi, "\n")

## 
## Minggu dengan Penjualan Tertinggi: 4

cat("Total Penjualan Tertinggi:",
    jumlah[minggu_tertinggi], "\n")

## Total Penjualan Tertinggi: 440

# NOMOR 6
# Membuat matriks 3 x 3
A <- matrix(0, nrow = 3, ncol = 3)
cat("Matriks awal:\n")

## Matriks awal:

print(A)

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

# Mengubah elemen baris pertama kolom pertama
A[1, 1] <- 10
cat("\nMatriks setelah A[1,1] = 10:\n")

## 
## Matriks setelah A[1,1] = 10:

print(A)

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

# Memeriksa baris pertama dan kedua
cat("\nBaris pertama:\n")

## 
## Baris pertama:

print(A[1, ])

## [1] 10  0  0

cat("\nBaris kedua:\n")

## 
## Baris kedua:

print(A[2, ])

## [1] 0 0 0