#lapply函数
#可以循环处理列表中的每一个元素
#lapply(参数):lapply(列表,函数/函数名,其他参数)
#总是返回一个列表
#sapply:简化结果
#结果列表元素长度均为1,返回向量...#结果列表元素长度相同且大于1,返回矩阵
> str(lapply)
function (X, FUN,...list(a=1:10,b=c(11,21,31,41,51))
> x
$`a`
[1] 1 2 3 4 5 6 7 8 9 10
$b
[1] 11 21 31 41 51
> lapply...(x,mean)
$`a`
[1] 5.5
$b
[1] 31
> x <- 1:4
> lapply(x,runif)
[[1]]
[1] 0.5754994
[[2]]
[1] 0.3157821...(x,function(m) m[1,])
$`a`
[1] 1 3 5
$b
[1] 4 6
> x <- list(a=1:10,b=c(11,21,31,41,51))
> lapply(x,