#mapply(函数/函数名,数据,函数相关的函数)

> list(rep(1,4),rep(2,3),rep(3,2),rep(4,1))
[[1]]
[1] 1 1 1 1

[[2]]
[1] 2 2 2

[[3]]
[1] 3 3

[[4]]
[1] 4

> mapply(rep,1:4,4:1)
[[1]]
[1] 1 1 1 1

[[2]]
[1] 2 2 2

[[3]]
[1] 3 3

[[4]]
[1] 4

> s <- function(n,mean,std){
+   rnorm(n,mean,std)
+ }

> s(4,0,1)
[1]  0.23803199 -0.34249791 -0.12654519 -0.02443351
> list(s(1,5,2),s(2,4,2),s(3,3,2),s(4,2,2),s(5,1,2))
[[1]]
[1] 1.097834

[[2]]
[1] 3.348059 2.867686

[[3]]
[1] 0.7296542 3.2896896 3.7186395

[[4]]
[1]  1.08987561  1.41372263 -0.06111607 -0.79670515

[[5]]
[1]  0.7191012 -0.1381517  1.6261461  0.8744692  3.0874750

> mapply(s,1:5,5:1,2)
[[1]]
[1] 5.39905

[[2]]
[1] 4.015939 7.603295

[[3]]
[1] 2.959996 8.178402 4.593594

[[4]]
[1] 4.19131691 4.68381509 0.03685603 0.24314842

[[5]]
[1] -0.3154059  1.0696362 -0.6212239  6.8517959  2.6515511