x <- list(a=matrix(1:6,2,3), b=matrix(4:7,2,2))
#x包含有两个矩阵
?怎么同时求x中两个矩阵a和b第一行的平均值呢?
#取x中两个矩阵的第一行
y <- lapply(x, function(m) m[1,])
lapply(y,mean)