将矩阵重复n次到列表中

Question

我有一个矩阵，我想在列表中复制n次。 显然rep（）函数不适用于矩阵，所以有人有一个很好的建议如何使它比我下面的代码更好吗？

谢谢！

# Create sample matrix
jwprox <- matrix(ncol=15,nrow=15)
# Create list of n-times matrices
jwprox <- list(jwprox,jwprox,jwprox)

Answer 1

您可以使用lapply()

n <- 3

x <- lapply(seq_len(n), function(X) jwprox)
str(x)
# List of 3
#  $ : logi [1:15, 1:15] NA NA NA NA NA NA ...
#  $ : logi [1:15, 1:15] NA NA NA NA NA NA ...
#  $ : logi [1:15, 1:15] NA NA NA NA NA NA ...

或replicate()：

xx <- replicate(n, jwprox, simplify=FALSE)
identical(x,xx)
# [1] TRUE

（FWIW，replicate()只是sapply()的一个有时方便的包装器，反过来，lapply()。）