作者lin15 ( )
站内Statistics
标题Re: [程式] R 资料处理问题
时间Sun Mar 17 00:06:57 2013
※ 引述《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
1F：→ andrew43:好聪明的做法! 03/18 00:33