एक सप्ताह के भीतर मूल्यों का योग

Question

मैं सप्ताह के आधार पर फ्रेम के प्रत्येक कॉलम में मानों को जोड़ना चाहता हूं। मैं मतलब कर सकता हूं, लेकिन योग कुछ कारणों से काम नहीं करता है:

> 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 

क्या चल रहा है?

Answer 1

इस तथ्य यह है कि XTS लेखकों एक mean.xts विधि जोड़ने का फैसला किया है आधार आर के पुराने व्यवहार की नकल करने के लिए का परिणाम है (और जो अनिवार्य रूप से colMeans है)। mean.xts अब xts पर mean.default के बजाय ऑब्जेक्ट्स पर भेजा गया है, और apply.weekly अस्थायी रूप से zoo ऑब्जेक्ट को 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 

---

लेकिन, मुझे लगता है कि यह आप क्या करना चाहते हैं:

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