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

Lembaga : UIN Maliki Malang

Jurusan : Teknik Informatika

Fakultas : Sains Dan Teknologi

Table Inflow dan Outflow Bali Pertahun

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
datainflowBali <- read_excel(path = "InflowThBali.xlsx")
datainflowBali
## # A tibble: 11 x 2
##    Tahun   Bali
##    <dbl>  <dbl>
##  1  2011  6394.
##  2  2012  8202.
##  3  2013  5066.
##  4  2014 11590.
##  5  2015 13072.
##  6  2016 17914.
##  7  2017 16962.
##  8  2018 18610.
##  9  2019 21422.
## 10  2020 14735.
## 11  2021  7505.
library(readxl)
dataoutflowBali <- read_excel(path = "outflowThBali.xlsx")
dataoutflowBali
## # A tibble: 11 x 2
##    Tahun   Bali
##    <dbl>  <dbl>
##  1  2011  8912.
##  2  2012 10782.
##  3  2013  7248.
##  4  2014 13104.
##  5  2015 14471.
##  6  2016 18140.
##  7  2017 17822.
##  8  2018 20434.
##  9  2019 20654.
## 10  2020 14323.
## 11  2021  6531.

Prediksi Data Inflow Uang Kartal Bali Pertahun

datainflowBali$`Bali`
##  [1]  6394.349  8202.467  5066.456 11589.965 13071.655 17913.703 16962.106
##  [8] 18609.607 21421.705 14735.153  7505.179
plot(datainflowBali$`Bali`, type = "l", col = "red")

Prediksi Data Outflow Uang Kartal Bali Pertahun

dataoutflowBali$`Bali`
##  [1]  8911.800 10781.770  7247.564 13103.630 14470.640 18139.587 17821.691
##  [8] 20433.972 20654.361 14322.539  6530.569
plot(dataoutflowBali$`Bali`, type = "l", col = "blue")

plot(datainflowBali$`Bali`, type = "l", col = "orange")

Table Inflow dan Outflow Bali Perbulan

library(readxl)
datainflowBlnBali <- read_excel(path = "inflowBlnBali.xlsx")
datainflowBlnBali
## # A tibble: 128 x 2
##    Keterangan           Bali
##    <dttm>              <dbl>
##  1 2011-01-01 00:00:00  463.
##  2 2011-02-01 00:00:00  401.
##  3 2011-03-01 00:00:00  532.
##  4 2011-04-01 00:00:00  431.
##  5 2011-05-01 00:00:00  474.
##  6 2011-06-01 00:00:00  393.
##  7 2011-07-01 00:00:00  585.
##  8 2011-08-01 00:00:00  328.
##  9 2011-09-01 00:00:00 1434.
## 10 2011-10-01 00:00:00  522.
## # ... with 118 more rows
library(readxl)
dataoutflowBlnBali <- read_excel(path = "outflowBlnBali.xlsx")
dataoutflowBlnBali
## # A tibble: 128 x 2
##    Bulan                Bali
##    <dttm>              <dbl>
##  1 2011-01-01 00:00:00  177.
##  2 2011-02-01 00:00:00  353.
##  3 2011-03-01 00:00:00  581.
##  4 2011-04-01 00:00:00  662.
##  5 2011-05-01 00:00:00  652.
##  6 2011-06-01 00:00:00  852.
##  7 2011-07-01 00:00:00  746.
##  8 2011-08-01 00:00:00 1888.
##  9 2011-09-01 00:00:00  458.
## 10 2011-10-01 00:00:00  609.
## # ... with 118 more rows

Prediksi Data Inflow Uang Kartal Bali Perbulah

datainflowBlnBali$`Bali`
##   [1]  463.4942  401.2705  531.8321  430.9272  474.4475  393.3474  585.2862
##   [8]  328.0076 1434.0210  522.3054  515.8948  313.5151  762.4934  914.6596
##  [15]  603.7560  585.8805  728.3468  587.1981  596.7980  722.4166  871.1744
##  [22]  622.0534  802.9841  404.7057  504.5470  225.2885  144.5615  138.7439
##  [29]  154.8955  140.1864  181.5579  628.6199  741.6369  633.2221 1035.4237
##  [36]  537.7725 1580.2015 1062.1237  689.1191  989.9306  589.6238 1027.5450
##  [43]  499.7980 1880.5043  878.8203  894.8855  995.4530  501.9600 2142.3029
##  [50]  977.6232  965.6738 1078.2866  916.6191  815.5232 1816.1220 1003.7575
##  [57]  849.1843  865.9261  975.2170  665.4194 2074.5030 1651.8148 1349.2410
##  [64] 1088.3478 1353.8161  952.5911 2201.8241 1280.5338 1804.2490 1450.3419
##  [71] 1467.4868 1238.9536 2052.4898 1421.0190 1101.7151 1574.5009 1468.2795
##  [78]  832.9708 2545.4088 1177.3180 1206.4513 1048.4978 1787.1670  746.2877
##  [85] 2241.5629 1242.8403 1018.0038 1503.9253  850.0291 2939.5841 1575.9134
##  [92] 1537.0602 1540.6172 1925.8187 1558.4903  675.7620 3472.2707 1615.9872
##  [99] 1701.0987 1460.2353 1252.9815 2856.2398 1316.8511 1640.0412 1524.4376
## [106] 1758.9356 1566.7674 1255.8585 2986.7851 1546.2565 1229.2731 1473.7059
## [113] 1016.1529 1296.2055  835.0932  832.4055 1163.7777  660.4813 1155.9158
## [120]  539.1009 2434.9203  871.2755  774.6759  852.3260 1078.5028  501.8520
## [127]  395.7334  595.8928
plot(datainflowBlnBali$`Bali`, type = "l", col = "red")

Prediksi Data Outflow Uang Kartal Bali Perbulan

dataoutflowBlnBali$`Bali`
##   [1]  177.04785  353.18190  580.84406  662.00472  652.35527  852.01834
##   [7]  745.90148 1888.16025  458.37649  608.86935  572.37848 1360.66160
##  [13]  451.04246  341.39192  830.24284  688.71274  904.20054 1196.88221
##  [19]  840.91454 1898.63637  387.91387  772.62723  857.06659 1612.13863
##  [25]   57.18282  214.88582  231.08275  240.06173  465.74861  437.29678
##  [31]  674.75666  507.77241  922.70871  931.60575  804.41288 1760.04933
##  [37]  539.79219  545.37326 1297.23545  706.53950 1253.95573  708.63728
##  [43] 2669.93489  733.76944 1017.97525 1149.32633  770.15061 1710.94016
##  [49]  448.78833  824.46903  816.20727 1369.16692  887.81091 1207.45967
##  [55] 2976.88610  953.14580  968.62953  898.48387  948.15400 2171.43853
##  [61]  467.61312 1284.03949 1185.71883 1072.46665 1332.92351 2701.59907
##  [67] 1644.16987 1701.46965 1780.98094 1467.68976 1337.69222 2163.22355
##  [73]  664.22361  940.12622 2369.52057  911.87713 1340.86594 3569.26368
##  [79]  781.43826 1801.45865 1017.94123 1565.91417 1111.98409 1747.07757
##  [85]  441.30460 1156.29890 1850.51681 1273.03798 2789.95571 2614.49313
##  [91] 1206.27367 1944.98961 1483.80701 1389.89394 1240.50547 3042.89475
##  [97]  362.28166 1287.88184 2032.19820 1594.95019 4132.40136  681.97264
## [103] 1962.25710 1375.85971 1406.26619 1366.25863 1482.11267 2969.92057
## [109]  998.41301 1560.90210 1466.22016  771.87655 1129.30582  598.21047
## [115] 1147.79277 1027.66274 1053.31914 1419.90221  772.16276 2376.77159
## [121]  208.86741  606.52211  940.73108 1365.48474 1381.95964  839.89621
## [127]  752.80505  434.30228
plot(dataoutflowBlnBali$`Bali`, type = "l", col = "yellow")

Daftar Pustaka

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