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

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Prodi : Teknik Informatika

A. Pengertian Inflow

Cash inflow merupakan aliran kas yang diakibatkan dari kegiatan transaksi yang menciptakan keuntungan kas. Cash inflow dapat terdiri dari:
- Hasil penjualan dari produk maupun jasa perusahaan
- Hasil dari penagihan piutang pada penjualan kredit
- Hasil penjualan aktiva tetap yang telah ditentukan
- Hasil penerimaan investasi dari pemilik maupun saham apabila perseroan terbatas
- Hasil pinjaman atau hutang dari pihak lain
- Hasil penerimaan pendapatan lain dan sewa

B. Pengertian Outflow

Cash outflow merupakan aliran kas yang terdiri dari berbagai macam transaksi yang dapat mengakibatkan beban pengeluaran kas. Cash outflow dapat terdiri dari:

- Hasil pengeluaran biaya tenaga kerja langsung, bahan baku dan biaya perusahaan lainnya

- Hasil pengeluaran administrasi penjualan dan administrasi umum

- Hasil pembelian dari aktiva tetap

- Hasil pembayaran hutang-hutang pada perusahaan

- Hasil pembayaran kembali dari investasi si pemilik usaha

- Hasil pembayaran sewa, bunga, pajak, deviden dan biaya pengeluaran lainnya

library(readxl)
datainflow <- read_excel(path = "datainflow.xlsx")
datainflow
## # A tibble: 11 x 5
##    Tahun `Bali Nusra`   Bali `Nusa Tenggara Barat` `Nusa Tenggara Timur`
##    <dbl>        <dbl>  <dbl>                 <dbl>                 <dbl>
##  1  2011       10322.  6394.                 1803.                 2125.
##  2  2012       14613.  8202.                 3676.                 2735.
##  3  2013       17512.  5066.                 7024.                 5422.
##  4  2014       20807. 11590.                 5704.                 3512.
##  5  2015       23008. 13072.                 6285.                 3651.
##  6  2016       30965. 17914.                 8842.                 4210.
##  7  2017       30797. 16962.                 8383.                 5452.
##  8  2018       33866. 18610.                 9140.                 6116.
##  9  2019       38116. 21422.                 9614.                 7080.
## 10  2020       29400. 14735.                 8007.                 6657.
## 11  2021       18892.  7505.                 5888.                 5498.
library(readxl)
dataoutflow <- read_excel(path = "dataoutflow.xlsx")
dataoutflow
## # A tibble: 11 x 5
##    Tahun `Bali Nusra`   Bali `Nusa Tenggara Barat` `Nusa Tenggara Timur`
##    <dbl>        <dbl>  <dbl>                 <dbl>                 <dbl>
##  1  2011       16424.  8912.                 3819.                 3693.
##  2  2012       19421. 10782.                 4379.                 4260.
##  3  2013       29399.  7248.                10628.                11524.
##  4  2014       23391. 13104.                 5620.                 4668.
##  5  2015       26728. 14471.                 6728.                 5530.
##  6  2016       31941. 18140.                 8149.                 5652.
##  7  2017       34160. 17822.                 8770.                 7569.
##  8  2018       37260. 20434.                 9271.                 7555.
##  9  2019       38680. 20654.                10288.                 7738.
## 10  2020       31224. 14323.                 8546.                 8356.
## 11  2021       15224.  6531.                 5222.                 3472.

Visualisasi Komparasi Prediksi Data Inflow Uang Kartal di Bali dan Nusa Tenggara Barat

plot(datainflow$Tahun,datainflow$`Bali`,type = "l", col= "red")
lines(datainflow$Tahun,datainflow$`Nusa Tenggara Barat`,col="yellow")
legend("top",c("Inflow","Inflow"),fill=c("red","yellow"))

Visualisasi Komparasi Prediksi Data Outflow Uang Kartal di Bali dan Nusa Tenggara Barat

plot(dataoutflow$Tahun,dataoutflow$`Bali`,type = "l", col= "green")
lines(dataoutflow$Tahun,dataoutflow$`Nusa Tenggara Barat`,col="blue")
legend("top",c("Inflow","Inflow"),fill=c("green","blue"))

Visualisasi Komparasi Prediksi Data Inflow-Outflow Uang Kartal di Bali dan Nusa Tenggara Barat

plot(datainflow$Tahun,datainflow$`Bali`,type = "l", col= "red")
lines(datainflow$Tahun,datainflow$`Nusa Tenggara Barat`,col="yellow")
lines(dataoutflow$Tahun,dataoutflow$`Bali`, col= "green")
lines(dataoutflow$Tahun,dataoutflow$`Nusa Tenggara Barat`,col="blue")
legend("top",c("Inflow Bali","Inflow Nusa Tenggara Barat","Outflow Bali","Outflow Nusa Tenggara Barat"),fill=c("red","yellow","green","blue"))

#### Referensi