|
这是我根据上面回答,和其他地方总结出来,可以使用的代码,我这里时间是从后往前产生。
前面代码能产生按天的date数据,后面代码整合成时间序列格式。
library(tseries)
library(xts)
enddate <- as.Date("2016-11-01")
startdate <- enddate - length(shop_flow)
flow_ts <- ts(shop_flow, frequency =1) #构造时间序列
dates <- as.Date(seq(from=startdate, by=1, length.out=length(shop_flow)))
#到这里,产生按天的date数据
#整合成时间序列格式
flow_ts <- data.frame(flow_ts)
rownames(flow_ts)=dates
flow_ts <- as.xts(flow_ts) #构造时间序列
给后来人参考,我用来跑arima,这个flow_ts是符合数据格式要求的。
|