Rループエラー：範囲外の添字

Question

モデルの組み合わせを探索するためのループを作成しようとしています。だから、私は次のことをやっている：

# k=ncol(tmp1)-1 
k = 5 ## example k without knowing "tmp1" 

#number of models 
M=2^k 
#a matrix to store indicators/switch for predictors. Need two loops to do this (for loops) 
incl_pred<-matrix(0,M,4) 
tmpm=M 
i=1 
for(i in 1:k){ 
    tmpm=tmpm/(2) 
    incl_pred[1:tmpm,i]=1 
} 
for(i in 2:k){ 
    tmpm=M 
    for(j in i:k){ 
    incl_pred[((tmpm/2)+1):tmpm,j]=incl_pred[1:(tmpm/2),j] 
    tmpm=tmpm/2 
    } 
} 

しかし、それは私の2つのエラー与えている：

Error in [<- (*tmp* , 1:tmpm, i, value = 1) : subscript out of bounds

と

Error in incl_pred[1:(tmpm/2), j] : subscript out of bounds.

をあなたは私がそれを修正助けることができますか？

ありがとうございました！

Answer 1

あなたは設定する必要があります。

incl_pred<-matrix(0,M,k) 

あなたの内側のループので：

for(j in i:k){ 
    incl_pred[((tmpm/2)+1):tmpm,j]=incl_pred[1:(tmpm/2),j] 

がincl_predのk列までアクセスしています。