いくつかの製品について毎週の販売観測があります。次に、これらのデータを保持する動物園オブジェクトを作成しますが、意図したとおりに頻度/サイクルを機能させることができません。データは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
>