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)