1,3,6,10,15,...,4753,4851,4950,5050（长度100）怎么用R写出来呢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题用哪个函数呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

1. myfun <- function(start = 1, firstspace = 2, n = 100) {
   
2.   x <- vector(length = n)
   
3.   x[1] <- start
   
4.   for (i in 2:n) {
   
5.     x[i] <- x[i-1] + firstspace + i - 2
   
6.   }
   
7.   x
   
8. }
   
9. myfun()
   
10. myfun(firstspace = 3)

复制代码

1. cumsum(1:100)

复制代码

楼上给出了通法，使用范围更广。我这里也献丑了！

1. x = vector(length = 100)
   
2. x[1] = 1
   
3. for(i in 2:100) {
   
4.   x[i] = x[i-1] + i
   
5. }
   
6. print(x)

复制代码

x = vector(length = 100)
x[1] = 1
for(i in 2:100) {
  x[i] = x[i-1] + i
}
print(x)

提供一种解法，请参考

1. cumsum(1:100)

复制代码