ゼロのR行列の四肢を拡張する

Question

固定次元であり、この行列の端にゼロの列と行を効率的に追加したいと考えている行列を効率的に1000回以上繰り返します今私はループとcbindとrbindを使用しています。これを行う簡単な方法はありますか？

##my actual matrix is real data of fixed dimension.. so i can't simply 
##initialize a larger matrix like I could in this example.. 

my_matrix <- matrix(1,ncol=10,nrow=10) 
for(i in 1:10){ 
    my_matrix <- cbind(my_matrix,0) 
    my_matrix <- rbind(my_matrix,0) 
} 

Answer 1

添加cbindとrbindためのループでは本当に遅いです。

new_mat <- matrix(0, ncol=20,nrow=20) 
new_mat[1:nrow(my_matrix), 1:ncol(my_matrix)] <- my_matrix 

は説明：所望の寸法のゼロの行列を作成し、あなたのデータを