作者KnightX (........)
站内Statistics
标题Re: [问题] R 回圈 x[i,]+x[i-1,]的问题
时间Fri May 9 22:59:33 2008
看不懂 t=1 时, x[t-1] 是多少...
我这边先把 x[1] + x[0] 这项不列出来
故程式码可以写成下面这样:
x <- matrix(rnorm(100*3), ncol=3)
t(apply(x, 1, function(x) x[-3] + x[-1]))
多善用 R 向量计算的功能, 可以简化程式与增加执行效率...
※ 引述《bcs (= ="frailty..gggg XD)》之铭言：
: 请问我想在对100*3的matrix做lag一期的加总 x[t]+x[t-1]
: 但是当t=1时 x[0,] => col names。
: 若是用lag(x),dim仍是100*3。
: 下面的语法出现nothing to replace, 请问我该怎麽改语法才能
: 顺利完成。
: 谢谢
: #j:col, t:row
: x <- matrix(rnorm(100*3),100,3)
: k <- matrix(0,100,3)
: for(j in 1:3){
: for(t in 1:100){
: k[t,j] <- x[t,j] + x[t-1,j]
: }}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.74.96.39
※ 编辑: KnightX 来自: 211.74.96.39 (05/09 23:01)
1F：推 bcs:谢啦，我要的是apply(x, 2, function(x) x[-3] + x[-1]) 05/09 23:29
2F：推 bcs:apply(x,2,function(x) x[-100]+x[-1]) 05/10 01:11