##Crude Oil##
library(readxl)
Data_1 <- read_excel("B:/ACADEMIA/PUBLICATIONS/CRUDE OIL/Data_1.xlsx")
View(Data_1)

Crude<-ts(Data_1,start=c(1980,1))
ln_crude<- log(Crude)
head(Crude)
plot(Crude)
plot(ln_crude, 3)


#lag-log
lagln_crude<-lag(ln_crude,-1)
dln_crude<-diff(ln_crude)
plot(dln_crude)

#Autocorrelation
##consumption
acf(Data_1$CONS)
acf(Data_1$CONS, lag.max = 4, plot = TRUE)
lag.plot(Data_1$CONS, lags = 4, do.lines = FALSE)

##Oil price
acf(Data_1$`OIL PRICE`)
acf(Data_1$`OIL PRICE`, lag.max = 4, plot = TRUE)
lag.plot(Data_1$`OIL PRICE`, lags = 4, do.lines = FALSE)

##GDPPC
acf(Data_1$GDPPC)
acf(Data_1$GDPPC, lag.max = 4, plot = TRUE)
lag.plot(Data_1$GDPPC, lags = 4, do.lines = FALSE)

##Oil consumption
acf(Data_1$INFLATION)
acf(Data_1$INFLATION, lag.max = 4, plot = TRUE)
lag.plot(Data_1$INFLATION, lags = 4, do.lines = FALSE)

##Oil consumption
acf(Data_1$GS)
acf(Data_1$GS, lag.max = 4, plot = TRUE)
lag.plot(Data_1$GS, lags = 4, do.lines = FALSE)