Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Jurusan : Teknik Informatika

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

Pengertian Inflow dan Outflow pada Uang Kartal

Inflow, disebut investasi sebagai langsung dalam ekonomi pelaporan, termasuk semua kewajiban dan aset yang ditransfer antara perusahaan investasi langsung penduduk dan investor langsung mereka. Ini juga mencakup transfer aset dan kewajiban antara perusahaan yang bertempat tinggal dan yang tidak residen, jika orang tua pengendali utama adalah bukan penduduk.

Outflow, disebut sebagai investasi langsung di luar negeri, termasuk aset dan kewajiban yang ditransfer antara investor langsung penduduk dan perusahaan investasi langsung mereka. Ini juga mencakup transfer aset dan kewajiban antara sesama dan non-residen perusahaan, jika orang tua pengendali utama adalah penduduk. Investasi langsung keluar juga disebut investasi langsung di luar negeri.

Contoh Penerapan Visualisasi Prediksi Data Inflow-Outflow Uang Kartal di Kep. Riau

library(readxl)
datainflow <- read_excel(path = "INFLOW TAHUNAN.xlsx")
datainflow
library (readxl)
dataoutflow <- read_excel(path = "OUTFLOW TAHUNAN.xlsx")
dataoutflow

1. Visualisasi Prediksi Data Inflow Uang Kartal Kep. Riau Setiap Periode

plot(datainflow$Tahun,datainflow$`Kep. Riau`,type = "l", col= "blue")

2. Visualisasi Prediksi Data Outflow Uang Kartal di Kep. Riau Setiap Periode

plot(dataoutflow$Tahun,dataoutflow$`Kep. Riau`,type = "l", col= "red")

3. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal di Kep. Riau Setiap Periode

plot(datainflow$Tahun,datainflow$`Kep. Riau`,type = "l", col= "brown")
lines(dataoutflow$Tahun,dataoutflow$`Kep. Riau`,col="purple")
legend("top",c("Inflow","Outflow"),fill=c("brown","purple"))

4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal di Kep. Riau Setiap Bulan

library(readxl)
datainflowperbulan <- read_excel(path = "inflow perbulan.xlsx")
dataoutflowperbulan <- read_excel(path = "outflow perbulan.xlsx")
datainflowperbulan
dataoutflowperbulan
plot(datainflowperbulan$`Kep. Riau`, type = "l", col = "green")
lines(dataoutflowperbulan$`Kep. Riau`,col="yellow")
legend("top",c("Inflow","Outflow"),fill=c("green","yellow"))
Kep.Riautimeseries <- datainflowperbulan$`Kep. Riau`
plot.ts(Kep.Riautimeseries , type = "l", col = "blue")
logKep.Riau <- log(datainflowperbulan$`Kep. Riau`)
plot.ts(logKep.Riau)

5. Visualisasi Prediksi Data Inflow-Outflow Time Series Uang Kartal di Kep. Riau

Kep.Riauinflowtimeseries <- ts(datainflowperbulan$`Kep. Riau`, frequency=12, start=c(2011,1))
Kep.Riauinflowtimeseries
Kep.Riauoutflowtimeseries <- ts(dataoutflowperbulan$`Kep. Riau`, frequency=12, start=c(2011,1))
Kep.Riauoutflowtimeseries
plot.ts(Kep.Riauinflowtimeseries)
plot.ts(Kep.Riauoutflowtimeseries)
Kep.Riauintimeseriescomponents <- decompose(Kep.Riauinflowtimeseries)
Kep.Riauintimeseriescomponents$seasonal
Kep.Riauouttimeseriescomponents <- decompose(Kep.Riauoutflowtimeseries)
Kep.Riauouttimeseriescomponents$seasonal
plot(Kep.Riauintimeseriescomponents$seasonal,type = "l", col = "green")
lines(Kep.Riauouttimeseriescomponents$seasonal,col="black")
legend("top",c("Inflow","Outflow"),fill=c("green","black"))
plot(Kep.Riauintimeseriescomponents$trend,type = "l", col = "green")
lines(Kep.Riauouttimeseriescomponents$trend,col="black")
legend("top",c("Inflow","Outflow"),fill=c("green","black"))
plot(Kep.Riauintimeseriescomponents$random ,type = "l", col = "green")
lines(Kep.Riauouttimeseriescomponents$random,col="black")
legend("top",c("Inflow","Outflow"),fill=c("green","black"))
plot(Kep.Riauintimeseriescomponents$figure ,type = "l", col = "green")
lines(Kep.Riauouttimeseriescomponents$figure,col="black")
legend("top",c("Inflow","Outflow"),fill=c("green","black"))

Referensi

https://ejurnal.its.ac.id/index.php/sains_seni/article/download/12401/2433#:~:text=Inflow%20merupakan%20uang%20yang%20masuk,melalui%20kegiatan%20penarikan%20%5B2%5D.

https://www.bi.go.id/id/fungsi-utama/sistem-pembayaran/pengelolaan-rupiah/default.aspx

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