Tổng giá trị trong một tuần

Question

Tôi muốn tổng các giá trị trong mỗi cột của một khung theo tuần. Tôi có thể làm điều đó, nhưng số tiền không hoạt động vì một số lý do:

> 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 

Điều gì đang xảy ra?

Answer 1

Đây là kết quả của một thực tế là XTS tác giả đã quyết định thêm một phương pháp mean.xts để bắt chước các hành vi cũ của cơ sở R (và trong đó chủ yếu là colMeans). mean.xts hiện được gửi đi trên các đối tượng xts thay vì mean.default và apply.weekly tạm thời chuyển đổi đối tượng zoo thành số xts nội bộ.

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 

---

Nhưng, tôi nghĩ rằng đây là những gì bạn muốn làm:

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