data<-read.csv('aa.csv', stringsAsFactors = FALSE)
data$dt<-as.Date(data$dt)
data$dt<-as.character(data$dt)
library(dplyr)
length(data[,1]) #1613行数据
#生成每天时间
dates<-seq(from=as.Date('2012-01-01'), by=1, length.out=1613)
#dates2<-as.data.frame(dates)
#dates2$dates<-as.character(dates2$dates)
#head(dates2)
#head(data)
#data3<-left_join(dates,data,by=c("dates"="dt"),type="left",match="first")
n<-ts(data$amt, freq = 1, start =as.Date('2010-10-16')) #区间为1天
dates<-seq(from=as.Date('2010-10-16'), by=1, length.out=length(data$amt))
n1<-data.frame(dates,n)
is.ts(n)
acf(n,type="correlation",plot = TRUE)
data$dt<-as.Date(data$dt)
data$dt<-as.character(data$dt)
library(dplyr)
length(data[,1]) #1613行数据
#生成每天时间
dates<-seq(from=as.Date('2012-01-01'), by=1, length.out=1613)
#dates2<-as.data.frame(dates)
#dates2$dates<-as.character(dates2$dates)
#head(dates2)
#head(data)
#data3<-left_join(dates,data,by=c("dates"="dt"),type="left",match="first")
n<-ts(data$amt, freq = 1, start =as.Date('2010-10-16')) #区间为1天
dates<-seq(from=as.Date('2010-10-16'), by=1, length.out=length(data$amt))
n1<-data.frame(dates,n)
is.ts(n)
acf(n,type="correlation",plot = TRUE)
2万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
