通过r中的多个参数调用相同的函数？

Question

假设我有三个矩阵：

Mat1 = matrix(0,4,4) 
Mat2 = matrix(0,4,4) 
Mat3 = matrix(0,4,4) 

然后假定我需要创建矩阵的数量是很难做手工。另外，我想用low.tri(Mat1)作为一个低三角矩阵的函数，所以有什么办法可以做到这一点。

我搜索lapply家庭，但无法找到我的问题的答案。

Answer 1

lapply用于列表。首先，将所有矩阵插入list。 lower.tri是一个逻辑功能。如果你想得到一个更低的三角形，你应该创建一个类似于下面的f的函数。然后你可以使用lapply像这样：

Mat1 = matrix(0,4,4) 
Mat2 = matrix(0,4,4) 
Mat3 = matrix(0,4,4) 
l <- list(Mat1,Mat2,Mat3) 

f <- function(m) { 
    m[lower.tri(m)] <- 1 
    m 
} 

lapply(l,f) 

[[1]] 
    [,1] [,2] [,3] [,4] 
[1,] 0 0 0 0 
[2,] 1 0 0 0 
[3,] 1 1 0 0 
[4,] 1 1 1 0 

[[2]] 
    [,1] [,2] [,3] [,4] 
[1,] 0 0 0 0 
[2,] 1 0 0 0 
[3,] 1 1 0 0 
[4,] 1 1 1 0 

[[3]] 
    [,1] [,2] [,3] [,4] 
[1,] 0 0 0 0 
[2,] 1 0 0 0 
[3,] 1 1 0 0 
[4,] 1 1 1 0