Нет функции, которая может сделать это, но вот как вы можете решить вашу проблему.
Для среднего возраста нашей эры mean(data[,1] * data[,2])
Для среднего возраста MCI mean(data[,1] * data[,3])
Для среднего возраста Normal mean(data[,1] * data[,3])
Вам не нужно беспокоиться о нулях, потому что при умножении эти возрасты не учитываются.