R 的向量累加问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

x <- 1:10x<- c(x, rep(0, 5)

n <- 4  # n 可变
求 x[1] <- x[1] + x[2] + x[3] + x[4] + x[5]  # n == 4


x[2] <- x[2] + x[3] + x[4] + x[5] + x[6]
......
x[10] <- x[10] + x[11] + x[12] + x[13] + x[14]


哪位大神知道怎么做?在线等

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

先把问题描述清楚再来

就是第1个元素等于 第1到第5个元素的和
第2个元素等于 第2到第6个元素的和
依次类推

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

复制代码

正解 大神就是牛