R语言 向量的累加问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在有一个向量 x 为 [1,2,3,4,5,6,7,8,9,10]然后在向量 x 后补 4 个 0
即 [1,2,3,4,5,6,7,8,9,10,0,0,0,0]
设定 n 等于 4
那么生成新的向量为 y
想要结果为 [15,20,25,30,35,40,34,,27,19,10]

即 x[1] 等于 x[1]+x[2]+x[3]+x[4]+x[5]
x[2] 等于 x[2]+x[3]+x[4]+x[5]+x[6]
...
x[10]等于x[10]+0+0+0+0

这是我写的代码：

1.   x <- 1:10

复制代码

得到结果是正确的
现在想让 n 可变
要怎样写循环 或者 直接用向量的方式得出答案
哪位大神能帮帮忙 在线等

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言

1. myfunc <- function(x, n){
   
2.   len <- length(x) - n + 1
   
3.   y <- vector(length = len)
   
4.   for (i in 1 : len){
   
5.     y[i] <- sum(x[i : (n + i - 1)])
   
6.   }
   
7.   y
   
8. }
   
9. 
   
10. myfunc2 <- function(x, n){
    
11.   len <- length(x) - n + 1
    
12.   y <- vector(length = len)
    
13.   y[1] <- sum(1 : n)
    
14.   for (i in 2 : len){
    
15.     y[i] <- y[i-1] - x[i-1] +x[i + n - 1]
    
16.   }
    
17.   y
    
18. }
    
19. 
    
20. system.time(myfunc(1:100000, 50))
    
21. system.time(myfunc2(1:100000, 50))

复制代码