gm <- zoo(data$bid, order.by=as.Date(as.character(data$date), format='%Y-%m-%d')) #矩阵转换成时间序列
gm1=diff(log(gm)) #对数增长率
head(gm1)
2002-11-12 2002-11-13 2002-11-14 2002-11-15 2002-11-18
0.010546003 -0.018057776 -0.002201605 0.008465327 -0.004694110
acf(gm1)
Error in na.fail.default(as.ts(x)) : missing values in object
gm1=diff(log(gm)) #对数增长率
head(gm1)
2002-11-12 2002-11-13 2002-11-14 2002-11-15 2002-11-18
0.010546003 -0.018057776 -0.002201605 0.008465327 -0.004694110
acf(gm1)
Error in na.fail.default(as.ts(x)) : missing values in object