R帶下標的系列總和

Question

我認爲它應該是一個容易的但我一直在撓我的頭，找不到正確的方式。

我想計算系列A的總和：

甲< - * 求和（第（i = 2到i = S） * K（C1 + C2（I-1）））

其中k，c1 & c2是固定值。

展開，我想獲得的所有這些的總和：

K（C1 + C2（2-1））+ K（C1 + C2（3-1））+ ... ... K（C1 + C2（S-1））

做，在R，這裏是我寫的：

A<-function(s){ 
    for (i in 2:s){ 
    c1=5 
    c2=13.6 
    k=10 
    sum(k*(c1+c2*(i-1))) 
}} 

但是當我做

A(5) 

它沒不要拿出任何東西

所以我修改的功能，要求它打印它的所作所爲：

A<-function(s){ 
    for (i in 2:s){ 
    c1=5 
    c2=13.6 
    k=10 
    a<-sum(k*(c1+c2*(i-1))) 
    print(a) 
}} 

> A(5) 
[1] 186 
[1] 322 
[1] 458 
[1] 594 

顯然，它沒有「和」所有的人，但他們獨立計算。

那麼，求和的正確代碼究竟是什麼？

謝謝。

Answer 1

也許是這樣的：

K <- 10 
c1 <- 5 
c2 <- 13.6 

sum(K * (c1 + (c2 * (1:4))))