如何使用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] 

    } 

}