[R] simplify loop

[Omar Lakkis]

Is there a way to implement this faster than doing it in a loop. 

        for (i in length(settle)-1:1) {
                settle[i] = settle[i+1]/(1 + settle.pct[i+1])
        }

I want to guarantee that i+1 is calculated before i