Сумма четного числа с использованием заданного диапазона в R

Question

Я пытаюсь получить сумму четных чисел в R, используя этот код:

x<- c(80:100)
for(i in x) {
  if(i%%2==0) b<-append(b,i)
}
sum(b)

Но я не получаю идеальный ответ. Когда я печатаю b после оператора if, я получаю b как:

[1] 100 80 82 84 86 88 90 92 94 96 98 100

почему первый индекс приближается 100.

Answer 1

До начала вашего l oop, b, вероятно, уже имеет значение 100. Убедитесь в том, чтобы начать пустой b в начале.

x = c(80:100)
b = c()
for(i in x) {
    if(i %% 2 == 0){
        b = append(b, i)
    }
}
sum(b)

Но вы могли просто сделать

sum(x[x %% 2 == 0])