2

我每周都会对几种产品进行销售观察。然后我创建了一个动物园对象来保存这些数据，但不能使频率/周期按我的意愿工作。数据可在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 
>
4

0 回答 0