Как добавить числа в четной позиции в ряду Фибоначчи в R?

Question

Ряд Фибоначчи получается путем сложения вместе двух предыдущих целых чисел в серии, в Серию входят 1, 1, 2, 3, 5, 8. Я использовал следующий код, чтобы иметь ряд до 50.

y <- 50
}
fibvals <- numeric(y)
fibvals[1] <- 1
fibvals[2] <- 1
for (i in 3:y) { 
fibvals[i] <- fibvals[i-1]+fibvals[i-2]
}

Теперь я хочу добавить числа в четной позиции, то есть 1, 3, 8 до 50-го числа?пожалуйста помогите?

Answer 1

Попробуйте использовать seq, чтобы выбрать четные индексы вектора от 2 до 50, например:

sum(fibvals[seq(2, 50, by = 2)])

Также: есть библиотеки R, облегчающие работу с сериями.Вы можете использовать пакет numbers, например, чтобы получить первые 50 чисел Фибоначчи:

fibvals <- sapply(1:50, numbers::fibonacci)