R与下标的总和

Question

我认为这应该是一件容易的事，但我一直在摸不着头脑，找不到正确的方法。

我想计算A系列的总和：

A＆lt; - * 求和（（i = 2到i = s） * K（c1 + c2（i-1）））

其中k，c1＆amp; c2是固定值。

展开A，我想得到所有这些的总和：

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))))