В среднем два вектора зоопарка с одинаковым индексом?

Question

Предположим, у меня есть два вектора 'зоопарка', одинаковой длины, с одинаковыми индексами для обоих.

Существует ли простая функция, которая позволяет мне взять среднее для обоих по дате (индексу)?

Спасибо!

Answer 1

Вот одно решение, которое просто добавляет оба и делит на 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> 

Answer 2

Я не верю, что есть функция, но это довольно легко сделать с 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)