Предположим, у нас есть серии A и B, определенные как воспроизводимые, как показано. Затем просто добавьте их и разделите на 2:
A <- ts(c(1, 2, 4, 10), start = 2018, frequency = 12)
B <- ts(c(4, 6, 10, 4), start = 2018, frequency = 12)
(A+B)/2
дает:
Jan Feb Mar Apr
2018 2.5 4.0 7.0 7.0