Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Jurusan : Teknik Informatika

library(readxl)
## Warning: package 'readxl' was built under R version 4.1.2
datainflow <- read_excel(path = "C:/Users/user/Pictures/SEMESTER 2/LINEAR ALGEBRA/read.xlsx")
datainflow
datainflow$Aceh
##  [1]  2307.985  2619.567 36336.547  4566.588  4709.829  5774.937  5514.223
##  [8]  5799.114  7508.835  6640.830  3701.603
plot(datainflow$Aceh, type = "l", col = "blue")

dataoutflow <- read_excel(path = "OutflowkelasB.xlsx")
dataoutflow
dataoutflow$Aceh
##  [1]  6338.054  6378.008 23278.066  8629.870  9636.560 11310.606 11760.247
##  [8] 11449.810 13086.971 12873.680  5769.832
plot(dataoutflow$Aceh, type = "l", col = "red")

plot(datainflow$Aceh , type = "l", col = "blue")
lines(dataoutflow$Aceh, type = "l", col = "red")