soal

# a. Hitung cicilan per bulan untuk setiap kombinasi n dan r
T <- 45000000
n_values <- 3:7
r_values <- c(4, 5, 6) / 100

# Buat data frame untuk menyimpan hasil
results_a <- data.frame()

for (n in n_values) {
  for (r in r_values) {
    PMT <- T * r / 12 / (1 - (1 + r / 12) ^ (-12 * n))
    results_a <- rbind(results_a, data.frame(n = n, r = r, PMT = PMT))
  }
}

print(results_a)

##    n    r       PMT
## 1  3 0.04 1328579.3
## 2  3 0.05 1348690.4
## 3  3 0.06 1368987.2
## 4  4 0.04 1016057.5
## 5  4 0.05 1036318.2
## 6  4 0.06 1056826.3
## 7  5 0.04  828743.5
## 8  5 0.05  849205.5
## 9  5 0.06  869976.1
## 10 6 0.04  704033.2
## 11 6 0.05  724722.0
## 12 6 0.06  745780.0
## 13 7 0.04  615096.3
## 14 7 0.05  636025.9
## 15 7 0.06  657385.0

# b. Hitung maksimal harga tunai kendaraan yang dapat dibeli
n <- 5
r <- 8 / 100
PMT <- 1200000

T_max <- PMT * (1 - (1 + r / 12) ^ (-12 * n)) / (r / 12)

print(T_max)

## [1] 59182120