datasales<-read.table(file="e:/rdata/OneBigClass.csv",header = TRUE,sep=",")
dim(datasales)
names(datasales)<-c("Year","Month","Day","Count")
data<-datasales$Count
rollingN(data)
tsdata<-ts(rldata)
tsdata
plot(tsdata)
#平滑相关代码
opar<-par(no.readonly = TRUE)
par(mfrow=c(2,2))
ylim<-c(min(tsdata),max(tsdata))
plot(tsdata,main="Raw")
plot(ma(tsdata,3),main="k=3",ylim=ylim)
plot(ma(tsdata,7),main="k=7",ylim=ylim)
plot(ma(tsdata,15),main="k=15",ylim=ylim)
par(opar)【R|时间序列分析记录一】
文章图片
推荐阅读
- R|【R数据可视化手册】笔记1-条形图
- 数据挖掘|决策树
- R语言（生成正态分布数据生成--rnorm,dnorm,pnorm,qnorm）
- R|不同方法的正态性检验及R语言实现
- R（增加或删除矩阵的行或列）
- matlab直接保存图形而不显示图形
- 求和|LeetCode 188. Best Time to Buy and Sell Stock IV（股票买卖）
- R|记一次R的可视化使用-生成城市各个景点的多边形图
- 数据挖掘|使用R完成均值检验