→ andrew43:好聰明的做法! 03/18 00:33
※ 引述《arbiteron (..)》之銘言：
: 提供另外一種想法
: 把資料截短並補0，堆成矩陣後再加總
: data <- seq(1:10)
: n <- 3
: x <- data
: for(i in 1:(n-1)){
: x <- rbind(x, c(rep(0,i),data[-((length(data)-i+1):length(data))]))
: }
: apply(x, 2, sum)
也提供一個作法
由於R裡面 長度不同也可以相加
所以直接補0加完再取前10個值也是可以
(多的話可以自己寫成迴圈)
a<-1:10
b1<-c(0,a)
b2<-c(0,b1)
out<-a+b1+b2
out<-out[1:(length(a))]
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.168.82.217