関数で引数をn回繰り返すにはどうすればよいですか？

Question

データセットを作成するときにこれを取得することがあります。私は通常repを使用することができますが、時にはそれが適用されないため、回避策を見つけたり、過度に長い関数呼び出しを書かなければなりません。

たとえば、abind関数を使用して、同じ2-d行列から3次元配列を作成する必要があります。私は5つのコピーをしたい場合は、それはエレガントではなく、悪いことができます：私は200枚のコピーをしたい場合は

mat <- matrix(c(1,0,0,0,1,0,0,0,1), nrow=3, ncol=3) 
abind(mat, mat, mat, mat, mat, along=3) 

、引数に200回繰り返すよりもきれいな解決策はありますか？ repを使用すると行列が連結され、私は運が無ければ他の関数を試してみました。ループを避けたいのですが、できる場合はeval(parse(text=...))です。

Answer 1

?replicateは何をしたいです：

replicate(5, mat) 
#, , 1 
# 
#  [,1] [,2] [,3] 
#[1,] 1 0 0 
#[2,] 0 1 0 
#[3,] 0 0 1 
# 
# <snip!> 
# 
#, , 5 
# 
#  [,1] [,2] [,3] 
#[1,] 1 0 0 
#[2,] 0 1 0 
#[3,] 0 0 1 

... replicate(5, mat, simplify="array")のショートカットです。 simplify=引数をFALSEまたはTRUEに変更して、その他の出力オプションを確認してください。すべて同じである。また

do.call(abind, c(rep(list(mat), 5), along=3))