forループを使用してRで一度に2行ずつ配列を埋める方法は？

Question

Iは、特定の配列に基づいて、[テスト]を埋めるために[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] 

    } 

} 

しかし、このコードは最初の28で充填する[X]の第2列を抽出するのに役立ちます[テスト]の行次の図は、完全な[テスト]テーブルの一部であり、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] 

    } 

}