Suma wartości w ciągu tygodnia

Question

Chcę podsumować wartości w każdej kolumnie ramki po tygodniu. Mogę to zrobić, ale suma nie działa z jakiegoś powodu:

> zoo.data <- zoo(data.frame(x=11:20,y=1:10),as.Date(1:10,origin="1970-01-01")) 
> apply.weekly(zoo.data, mean) 
      x y 
1970-01-04 12 2 
1970-01-11 17 7 
> apply.weekly(zoo.data, sum) 
1970-01-04 1970-01-11 
     42  168 

Co się dzieje?

Answer 1

Wynika to z faktu, że XTS autorzy postanowili dodać metodę mean.xts naśladować starego zachowania zasady R (i która jest zasadniczo colMeans). mean.xts jest teraz wysyłane na obiektach xts zamiast mean.default, a apply.weekly tymczasowo konwertuje obiekt zoo na obiekt wewnętrzny xts.

R> apply.weekly(zoo.data, mean) 
      x y 
1970-01-04 12 2 
1970-01-11 17 7 
R> apply.weekly(zoo.data, mean.default) 
1970-01-04 1970-01-11 
     7   12 

---

Ale myślę, że to, co chcesz zrobić:

R> apply.weekly(zoo.data, colMeans) 
      x y 
1970-01-04 12 2 
1970-01-11 17 7 
R> apply.weekly(zoo.data, colSums) 
      x y 
1970-01-04 36 6 
1970-01-11 119 49