Oil and Copper Prices

library(Quandl)

library(ggplot2)

library(tseries);library(timeseries);library(xts);library(forecast)

library (quantmod)

library(psych)

library(ggfortify)

oil_price=Quandl("OPEC/ORB", start_date="2014-01-01", type='xts')

copper_price=Quandl("LME/PR_CU.1", start_date="2014-01-01", type='xts')

combined=merge(oil_price, copper_price)

autoplot(combined)

Both oil and copper have been rising lately and copper prices rose faster than oil prices.

ratio=copper_price/oil_price
autoplot(ratio)
summary(ratio)

Copper becomes more expensive than oil lately.