Код смешивает for
l oop с sequence
, что, вероятно, не даст желаемых результатов. Кроме того, ошибка в том, что «количество заменяемых элементов не кратно длине замены», указывает на проблему с последовательностью и попыткой индексировать одно значение.
x <- 5
y <- 0
for (i in 0:10) {
y <- y + x ^ i
}
Сравнение результатов с наиболее Приведенный выше лаконичный способ показывает, что результаты совпадают.
> setequal(y, sum(x^(0:10)))
[1] TRUE