Накопительное продукт с г

Question

Я хочу сделать что-то обычное в Excel, но я не знаю, как сделать это с R:

10  * 1.01 = 10.1 
(10+10.1) * 1.02 = 20.502 
(10+20.5) * 1.03 = ... 

Это как cumprod но * от внешнего вектора.

Edit:

У меня есть два вектора один может быть: с (50, 52, 54, 55), а другой с (1,01, 1,02, 1,03, 1,04), и я хочу сделать:

50 * 1.01 = 50.5 
(50.5 + 52) * 1.02 = 104.55 
... 

Я хочу получить вектор на каждом шагу без "для".

Thanks

Answer 1

Как насчет использования следующего цикла?

v <- rep(NA, 3) 
for(i in 1:length(v)){ 
    v[i] <- (max(v[i-1], 0) + 10)*(1 + i/100) 
} 
v 
[1] 10.10000 20.50200 31.41706 

Answer 2

Если вы просто хотите, чтобы конечный продукт можно создать функцию:

## Create equal length vectors 
x <- rep(10, 10) 
y <- seq(1.01, 1.1, .01) 

## Create function 
accumProd <- function(x, y){ 
    z = 0 
    for (i in 1:length(x)){ 
    z <- (x[i]+z) * y[i] 
    } 
    z 
} 

accumProd(x,y) 
[1] 146.3286 

Answer 3

Попробуйте

x <- 1 + 1:100/100 
f <- function(i) 10*sum(cumprod(x[i:1])) 
# first 10 elements 
sapply(1:10, f) 
# [1] 10.10000 20.50200 31.41706 43.07374 55.72743 69.67108 85.24805 
# [8] 102.86789 123.02601 146.32861 

Ответ на отредактированной вопрос: только адаптацию выше.

a <- c(50, 52, 54, 55) 
b <- c(1.01, 1.02, 1.03, 1.04) 
f1 <- function(i)sum((a[i:1])*cumprod(b[i:1])) 
sapply(1:4, f1) 
#[1] 50.5000 104.5500 163.3065 227.0388