我有几个产品的每周销售观察。然后，我创建一个动物园对象来保存这些数据但不能使频率/周期按预期工作。数据位于Dropbox (asr.csv)。
我已经能够创建一个尊重频率和周期的ts，但我努力使其与我的（填补空白的）每周观察结果一致。
可能还值得注意的是，我实际上是从ODBC连接中绘制数据（使用CSV来协助）。
如何在创建动物园时正确描述此数据？
> sales <- read.csv("asr.csv")
> library(zoo)
Attaching package: ‘zoo’
The following object(s) are masked from ‘package:base’:
as.Date, as.Date.numeric
> sales.zoo <- zoo(subset(sales, select=c(2:length(sales))), order.by=sales$date_end, frequency = 52)
> sales.zoo.i <- na.approx(sales.zoo) # interpolate internal NA values
> frequency(sales.zoo.i) # 52, which seems right
[1] 52
> cycle(sales.zoo.i[1:20,10]) # everything is in the one cycle...
2004-08-14 2004-08-21 2004-08-28 2004-09-04 2004-09-11 2004-09-18 2004-09-25
1 1 1 1 1 1 1
2004-10-02 2004-10-09 2004-10-16 2004-10-23 2004-10-30 2004-11-06 2004-11-13
1 1 1 1 1 1 1
2004-11-20 2004-11-27 2004-12-04 2004-12-11 2004-12-18 2004-12-25
1 1 1 1 1 1
>