da1 <- read.table(
"w-petroprice.txt", header=TRUE)
xts.petrol <- xts(
da1[,-(1:3)], make_date(da1[["Year"]], da1[["Mon"]], da1[["Day"]]))
da2 <- read_table2(
"w-gasoline.txt", col_names="pgas",
col_types=cols(.default=col_double())
)
xts.gasoline <- xts(da2[[1]], index(xts.petrol)+3)
2021-05-07
最新推荐文章于 2021-07-05 01:14:33 发布