带循环附加避免for的R函数（改为使用lappy）

我听说不建议在R中使用循环，主要是因为它很慢。我听说我应该改用

lappy

，因为它需要C来提高效率

问题：能否向我演示如何将以下示例转换为

lapply

高效代码（或来自同一系列的任何其他

应用
）

myFun这里有一个
lappy
方法：

myFun2 <- function(loop){
  generateRnorm1 = matrix(data = rnorm(n = 1000000), nrow = 10000, ncol = 10000)
  generateRnorm2 = matrix(data = rnorm(n = 1000000), nrow = 10000, ncol = 10000)
  sum(generateRnorm1, generateRnorm2)
}

# run function over 1:10
myList <- lapply(seq.int(10), myFun2)
# rbind the resulting list
result2 <- do.call(rbind, myList)

myFun2这里有一个
lappy
方法：

myFun2 <- function(loop){
  generateRnorm1 = matrix(data = rnorm(n = 1000000), nrow = 10000, ncol = 10000)
  generateRnorm2 = matrix(data = rnorm(n = 1000000), nrow = 10000, ncol = 10000)
  sum(generateRnorm1, generateRnorm2)
}

# run function over 1:10
myList <- lapply(seq.int(10), myFun2)
# rbind the resulting list
result2 <- do.call(rbind, myList)

myFun2见《谢谢》第四章我会读的见《谢谢》第四章我会读的