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