R<给*apply函数族中的FUN传递多个参数>

myfxn <- function(var1,var2,var3){
  var1*var2*var3

}

lapply(1:3,myfxn,var2=2,var3=100)

sapply(1:3,myfxn,var2=2,var3=100)

 lapply(1:3,myfxn,var2=2,var3=100)
[[1]]
[1] 200

[[2]]
[1] 400

[[3]]
[1] 600


> sapply(1:3,myfxn,var2=2,var3=100)
[1] 200 400 600