NA в цикле for при числах более 9

при попытке создать цикл с индексацией и расчитать сумму текущего элемента и следующего выдается часть значений в виде NA, при этом NA становятся только значения которые должны быть больше 9

a <- c(10, 20, 70, 40, 5)
   for (i in a){
    print(i+a[i+1])
   }