Universitas Islam Negeri Maulana Malik Ibrahim Malang

Program Studi Teknik Informatika

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

1.Prediksi Data Inflow-Outflow Uang Kartal Bali Nusra Setiap Tahun

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.3
Inflow <- read_excel(path = "C:/Users/Sarah Arelia/Downloads/InflowBaliNusra.xlsx")
Inflow
## # A tibble: 11 x 5
##    Keterangan `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)
Outflow <- read_excel(path = "C:/Users/Sarah Arelia/Downloads/OutflowBaliNusra.xlsx")
Outflow
## # A tibble: 11 x 5
##    Keterangan `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.

2. Visualisasi Prediksi Data Inflow Uang Kartal Bali Nusra Setiap Tahun

plot(Inflow$Keterangan,Inflow$`Bali Nusra`,type = "l", col= "green")

3. Visualisasi Prediksi Data Outflow Uang Kartal Bali Nusra Setiap Tahun

plot(Outflow$Keterangan,Outflow$`Bali Nusra`,type = "l", col= "red")

4. Visualisasi Prediksi Data Inflow-Outflow Uang Kartal Bali Nusra Setiap Tahun

plot(Inflow$Keterangan,Inflow$`Bali Nusra`,type = "l", col= "green")
lines(Outflow$Keterangan,Outflow$`Bali Nusra`,col="red")
legend("top",c("Inflow","Outflow"),fill=c("green","red"))