R语言for循环问题

1. lagmat <- function(x,lag){
   
2.     input1 <- matrix(0,length(x)-lag,lag);
   
3.     for(ii in c(1:lag)){
   
4.         input1[,ii]= x[ii:length(x)-lag+ii-1]
   
5.     }
   
6.     output1=x[lag+1:length(x)]
   
7.     lagmat=list(x=input1,y=output1)
   
8. }

复制代码

报错:Error in x[ii:length(x) - lag + ii - 1] :
  only 0's may be mixed with negative subscripts
我想实现的功能如下图:

input1[,ii]= x[ii:length(x)-lag+ii-1] 这里应该改成  input1[,ii]= x[ii:(length(x)-lag+ii-1)]

要注意括号，比如1:n-1实际上表示0:(n-1)   

这个可以学习一下                                                                        
                                       
                                                     
                                                     
                                             
                                                                 
                                                                                 

1楼说的是对的，第6行也有同样的问题，“lag+1”也要用括号括起来；
另外，建议第7行改为return(lagmat=list(x=input1,y=output1))。

GOOD TO KNOW, Thank you for sharing this.

速度会很慢，考虑使用Rcpp编写。

zhangzhangmen 发表于 2014-9-30 16:09
1楼说的是对的，第6行也有同样的问题，“lag+1”也要用括号括起来；
另外，建议第7行改为return(lagmat=li ...

一楼的回复在先,我把币奖励他了,我看你币也挺多的,不介意吧.
或者,你上传一个空附件,设置5-10个币,我购买.

以前我是用matlab,现在用R语言;语法不太一样啊!
2:3+5在matlab里面是[2 3 4 5 6 7 8];在R语言里面是[7 8]

mklyzl 发表于 2014-10-9 13:56
一楼的回复在先,我把币奖励他了,我看你币也挺多的,不介意吧.
或者,你上传一个空附件,设置5-10个币,我购买 ...

嘿嘿，没事