You can do:
w_vector <- cumsum(seq(iter))
w_vector
# [1] 1 3 6 10
Otherwise, using a for
loop, your code should look something like:
iter <- 4
w_vector <- rep(0, iter)
w_vector[1] <- 1
for(i in 2:iter) {
w_vector[i] <- w_vector[i-1] + i
}
w_vector
# [1] 1 3 6 10