在石油产量数据集上应用时间序列分析
这部分在学习笔记部分介绍过,在这里结合代码来学习实践。
首先加载库,设置默认路径,并读取文件
library(forecast)
setwd("c:/Users/T7/Desktop/123")
gas_prod_input <- as.data.frame( read.csv("gas_prod.csv") )
读取的数据集如下:
创建一个时间序列对象并输出图
gas_prod <- ts(gas_prod_input[,2])
plot(gas_prod, xlab = "Time (months)",ylab = "Gasoline production (millions of barrels)")
有趋势,不是平稳的,咋办?
差分!
plot(diff(gas_prod))
abline(a=0, b=0)
差分后的的时间序列有一个接近为 0 的常数均值,以及一个常数方差。因此,我们获得了一个平稳的时间序列。
使用下面的 R 代码,来观察差分后序列的 ACF 和 PACF 图。
acf(diff(gas_prod), xaxp = c(0, 48, 4), lag.max=48, main="")