数据科学与大数据分析项目练习-7在石油产量数据集上应用时间序列分析

在石油产量数据集上应用时间序列分析

这部分在学习笔记部分介绍过,在这里结合代码来学习实践。

首先加载库,设置默认路径,并读取文件

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=
  • 3
    点赞
  • 12
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值