Dosen Pengampu: Prof. Dr. Suhartono, M.Kom

Mata Kuliah: Linear Algebra (A)

Prodi: Teknik Informatika

Lembaga: Universitas Islam Negeri Maulana Malik Ibrahim Malang

Pengertian

Pengambilan kebijakan dalam menentukan peredaran uang kartal di masyarakat yang dilakukan oleh Bank Indonesia (BI) adalah Inflow dan Outflow uang kartal. Inflow dan Outflow uang kartal merupakan data deret waktu bulanan yang diduga dipengaruhi oleh waktu.

Data Inflow Uang Kartal dari bulan Januari sampai Desember 2016

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
databulan <- read_excel(path = "InflowJawaTh2016.xlsx")
databulan
## # A tibble: 13 x 7
##    Bulan                 Jawa `Jawa Barat` `Jawa Tengah` Yogyakarta `Jawa Timur`
##    <dttm>               <dbl>        <dbl>         <dbl>      <dbl>        <dbl>
##  1 2016-01-01 00:00:00 31066.       10046.         8858.      2360.        9802.
##  2 2016-02-01 00:00:00 20270.        6526.         5314.      1370.        7060.
##  3 2016-03-01 00:00:00 16689.        5732.         4616.      1170.        5171.
##  4 2016-04-01 00:00:00 15675.        5445.         4361.      1098.        4771.
##  5 2016-05-01 00:00:00 19585.        6785.         5127.      1390.        6283.
##  6 2016-06-01 00:00:00 13432.        5127.         2957.       851.        4497.
##  7 2016-07-01 00:00:00 47694.       14735.        15174.      3381.       14404.
##  8 2016-08-01 00:00:00 22448.        7634.         6229.      1388.        7197.
##  9 2016-09-01 00:00:00 19321.        7089.         5224.      1090.        5918.
## 10 2016-10-01 00:00:00 19811.        6884.         5130.      1242.        6557.
## 11 2016-11-01 00:00:00 18118.        5985.         5230.      1029.        5874.
## 12 2016-12-01 00:00:00 17499.        6048.         4562.       983.        5906.
## 13 NA                     NA           NA            NA         NA           NA 
## # ... with 1 more variable: Banten <dbl>

Data Outflow Uang Kartal dari bulan Januari sampai Desember 2016

library(readxl)
dataoutbulan <- read_excel(path = "OutflowJawaTh2016.xlsx")
dataoutbulan
## # A tibble: 12 x 7
##    Bulan                 Jawa `Jawa Barat` `Jawa Tengah` Yogyakarta `Jawa Timur`
##    <dttm>               <dbl>        <dbl>         <dbl>      <dbl>        <dbl>
##  1 2016-01-01 00:00:00  4736.        1287.         1157.       263.        2028.
##  2 2016-02-01 00:00:00  9871.        2573.         2814.       785.        3699.
##  3 2016-03-01 00:00:00 11431.        3143.         3033.       758.        4497.
##  4 2016-04-01 00:00:00 13998.        3315.         4053.      1090.        5540.
##  5 2016-05-01 00:00:00 17735.        4207.         4685.      1206.        7637.
##  6 2016-06-01 00:00:00 49948.       14051.        14322.      3464.       18112.
##  7 2016-07-01 00:00:00 11266.        2985.         4181.       662.        3439.
##  8 2016-08-01 00:00:00  8618.        1662.         2520.       738.        3697.
##  9 2016-09-01 00:00:00 15479.        3826.         4181.      1261.        6212.
## 10 2016-10-01 00:00:00 11176.        2754.         2760.       796.        4867.
## 11 2016-11-01 00:00:00 13454.        3495.         3486.       710.        5763.
## 12 2016-12-01 00:00:00 22854.        6107.         6470.      1278.        9000.
## # ... with 1 more variable: Banten <dbl>

Disini saya akan membuat perbandingan analogi Uang Kartal dari Provinsi Jawa Barat dan Jawa Timur

1.Analogi Perbandingan data inflow tiap bulan antara Jawa Barat dan Jawa Timur

plot(databulan$`Jawa Barat`,type = "l", col= "cyan")
lines(databulan$`Jawa Timur`,col="red")
legend("top",c("Inflow Jawa Barat","Inflow Jawa Timur "),fill=c("cyan","red"))

2. Analogi Perbandingan data outflow tiap bulan antara Jawa Barat dan Jawa Timur

plot(dataoutbulan$`Jawa Barat`,type = "l", col= "purple")
lines(dataoutbulan$`Jawa Timur`,col="green")
legend("top",c("Outflow Jawa Barat","Outflow Jawa Timur"),fill=c("purple","green"))

3. Analogi Visualisasi Prediksi Data Inflow-Outflow Uang Kartal antara Jawa Barat dan Jawa Timur setiap bulan

plot(databulan$`Jawa Barat`,type = "l", col= "cyan")
lines(databulan$`Jawa Timur`,col="red")
lines(dataoutbulan$`Jawa Barat`, col= "purple")
lines(dataoutbulan$`Jawa Timur`,col="green")
legend("top",c("Inflow Jawa Barat","Inflow Jawa Timur","Outflow Jawa Barat","Outflow Jawa Timur"),fill=c("cyan","red","purple","green"))

Disini saya akan membuat perbandingan analogi Uang Kartal dari Yogyakarta dan Jawa Tengah

1.Analogi Perbandingan data inflow tiap bulan antara Yogyakarta dan Jawa Tengah

plot(databulan$`Yogyakarta`,type = "l", col= "dodgerblue")
lines(databulan$`Jawa Tengah`,col="yellow")
legend("top",c("Inflow Yogyakarta","Inflow Jawa Tengah"),fill=c("dodgerblue","yellow"))

2. Analogi Perbandingan data outflow tiap bulan antara Yogyakarta dan Jawa Tengah

plot(dataoutbulan$`Yogyakarta`,type = "l", col= "mediumorchid")
lines(dataoutbulan$`Jawa Tengah`,col="orange")
legend("top",c("Outflow Yogyakarta","Outflow Jawa Tengah"),fill=c("mediumorchid","orange"))

3. Analogi Visualisasi Prediksi Data Inflow-Outflow Uang Kartal antara Yogyakarta dan Jawa Tengah setiap bulan

plot(databulan$`Yogyakarta`,type = "l", col= "dodgerblue")
lines(databulan$`Jawa Tengah`,col="yellow")
lines(dataoutbulan$`Yogyakarta`, col= "mediumorchid")
lines(dataoutbulan$`Jawa Tengah`,col="orange")
legend("top",c("Inflow Yogyakarta","Inflow Jawa Tengah","Outflow Yogyakarta","Outflow Jawa Tengah"),fill=c("dodgerblue","yellow","mediumorchid","orange"))

Referensi

https://rpubs.com/suhartono-uinmaliki/861286

https://www.bi.go.id/id/statistik/ekonomi-keuangan/ssp/indikator-pengedaran-uang.aspx