具有相同索引的平均兩個Zoo矢量？

Question

假設我有兩個長度相等的「動物園」矢量，兩者的索引相同。

有沒有一個簡單的函數，可以讓我取兩者的平均值，按日期（指數）？

謝謝！

Answer 1

我不相信有一個功能，但它很容易與apply做到：

set.seed(21) 
z1 <- zoo(rnorm(10), Sys.Date()-10:1) 
z2 <- zoo(rnorm(10), Sys.Date()-10:1) 
z <- merge(z1,z2) 
z$z3 <- apply(z,1,mean) 

Answer 2

這裏是一個解決方案，它只是由2增加了兩個與分歧：

R> a <- zoo(1:10, Sys.Date()+0:9) 
R> b <- zoo(10:1, Sys.Date()+0:9) 
R> z <- (a + b)/2 
R> merge(a, b, z) 
      a b z 
2011-07-06 1 10 5.5 
2011-07-07 2 9 5.5 
2011-07-08 3 8 5.5 
2011-07-09 4 7 5.5 
2011-07-10 5 6 5.5 
2011-07-11 6 5 5.5 
2011-07-12 7 4 5.5 
2011-07-13 8 3 5.5 
2011-07-14 9 2 5.5 
2011-07-15 10 1 5.5 
R>