如何使用for循環在R中一次按兩行填充數組？

Question

我想使用的[X]以填補數據[測試]基於某些序列：

x = matrix(rnorm(330),165,2) 


origins = 130:157 

horizon = 8 

col = 1:2 

test = array(0, c(length(origins)*length(col), horizon)) 

for(origin in origins){ 

    for (c in col){ 

    test[which(origin==origins), ] = x[(origin+1):(origin+8), c] 

    } 

} 

但是，此代碼不僅有助於提取的第二列[X]，以填補在第28 [測試]行。下面的圖片是唯一一個完整的[測試]表的一部分，顯示了從行29無效填充到行56 enter image description here

任何人誰可以幫我填他們完全？非常感謝你。

Answer 1

這是一個可能的解決方案，但它仍然不清楚你想要的結果是什麼。更好地製作更小的數據並顯示期望的結果。

分配的左手側，在原來的代碼，不採用c通過循環對C測試的相同的行會overwrittem變化，所以每一次，

x = matrix(rnorm(330),165,2) 

origins = 130:157 
horizon = 8 
col = 1:2 

test = array(0, c(length(origins)*length(col), horizon)) 

for(origin in origins){ 

    for (c in col){ 

    # the left hand side must vary somehow with c as well. 
    test[(which(origin==origins)-1) + (c - 1) * length(origins) + 1, ] = x[(origin+1):(origin+8), c] 

    } 

}