Warning: ini_set(): Session ini settings cannot be changed when a session is active in /var/www/osjournal.org/ojs/lib/pkp/classes/session/SessionManager.inc.php on line 71
##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.ma