Dosen Pengampu : Prof. Dr. Suhartono, M.Kom
Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang
Jurusan : Teknik Informatika
Fakultas : Sains dan Teknologi
Banyaknya uang yang beredar di masyarakat akan berpengaruh pada kondisi perekonomian suatu negara. Bank Indonesia memiliki tujuan tunggal untuk mencapai dan menjaga kestabilan nilai rupiah. Oleh karena itu, BI sebagai bank sentral menyusun perencanaan untuk memenuhi kebutuhan uang rupiah. Perencanaan tersebut dapat dilakukan dengan melakukan peramalan untuk inflow dan outflow uang kartal. Inflow merupakan uang yang masuk ke BI melalui kegiatan penyetoran, sedangkan outflow merupakan uang yang keluar dari BI melalui kegiatan penarikan.
library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
datainflow <- read_excel(path = "~/linear algebra/inflow kalimantan.xlsx")
datainflow
## # A tibble: 11 x 7
## Keterangan Kalimantan `Kalimantan Barat` `Kalimantan Tengah` `Kalimantan Se~`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 13272. 2831. 779. 5369.
## 2 2012 17575. 3386. 1135. 7311.
## 3 2013 37698. 4029. 19328. 4226.
## 4 2014 26379. 5943. 1887. 9614.
## 5 2015 29427. 6675. 3547. 9558.
## 6 2016 32847. 7440. 3694. 10809.
## 7 2017 35119. 7775. 3655. 12415.
## 8 2018 41157. 10249. 4083. 13604.
## 9 2019 46158. 11848. 4385. 14462.
## 10 2020 37200. 9294. 4178. 11753.
## 11 2021 31372. 7598. 3534. 9655.
## # ... with 2 more variables: `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>
library(readxl)
dataoutflow <- read_excel(path = "~/linear algebra/outflowkalimantan.xlsx")
dataoutflow
## # A tibble: 11 x 7
## Keterangan Kalimantan `Kalimantan Barat` `Kalimantan Tengah` `Kalimantan Se~`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2011 29535. 5221. 6850. 5126.
## 2 2012 33444. 5698. 7741. 5580.
## 3 2013 44929. 6011. 15421. 5046.
## 4 2014 38772. 6764. 8346. 6265.
## 5 2015 41945. 8486. 10190. 6755.
## 6 2016 42179. 9402. 10131. 7424.
## 7 2017 50404. 11132. 11695. 9544.
## 8 2018 53989. 12278. 13040. 8476.
## 9 2019 57579. 13768. 12891. 9228.
## 10 2020 52060. 13501. 12518. 8222.
## 11 2021 30291. 6958. 7071. 5192.
## # ... with 2 more variables: `Kalimantan Timur` <dbl>, `Kalimantan Utara` <dbl>
plot(datainflow$`Kalimantan Barat`, type = "l", col = "red")
plot(dataoutflow$`Kalimantan Barat`, type = "l", col = "red")
plot(datainflow$`Kalimantan Barat`, type = "l", col = "red")
lines(dataoutflow$`Kalimantan Barat`, type = "l", col = "blue")