library(readxl)
oildata <- read_xlsx('D:/homework 5/MCOILWTICO.xlsx',sheet = "oil", col_names = T)
corndata <- read_xlsx('D:/homework 5/PMAIZMTUSDM.xlsx',sheet = "corn", col_names = T)
oil <- ts(oildata[,2],start=c(1986,1),freq=12)
corn <- ts(corndata[,2],start=c(1986,1),freq=12)
data <- data.frame(oil=oil,corn=corn,date=time(oil))
运行显示
Error in data.frame(oil = oil, corn = corn, date = time(oil)) : 参数值意味着不同的行数: 439, 391