Элементарное среднее в R

Question

В R у меня есть два вектора:

a <- c(1, 2, 3, 4)
b <- c(NA, 6, 7, 8)

Как найти поэлементное среднее двух векторов, удаляя NA без цикла? т.е. я хочу получить вектор

(1, 4, 5, 6)

Я знаю функцию mean(), я знаю аргумент na.rm = 1. Но я не знаю, как все сложить. Конечно, в действительности у меня есть тысячи векторов с NA, появляющимися в разных местах, поэтому любое решение, зависящее от размера, не сработает. Спасибо.

Answer 1

как насчет:

rowMeans(cbind(a, b), na.rm=TRUE)

или

colMeans(rbind(a, b), na.rm=TRUE)

Answer 2

Я не совсем уверен, что вы просите, но делает ли

apply(rbind(a,b),2,mean,na.rm = TRUE)

то, что вы хотите?