同じインデックスの平均2つの動物園ベクトル？

Question

同じ長さの2つの「動物園」ベクトルがあり、両方に同じ指標があるとします。

私は両方の平均を日付（インデックス）で取ることができる単純な関数はありますか？

ありがとうございます！ここで

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>