R 在列表中每个xts对象的每个系列上复制colMeans函数

我试图复制colMeans函数。但我得到的结果是空对象列表。我举了一个最小的例子。请检查我的代码

library(zoo)
library(xts)
library(PerformanceAnalytics)
managers_1 <- managers[,1:2]
manager_2 <- managers[,3:4]
list_managers <- list(managers_1,manager_2)
## running colmeans function
lapply(list_managers,colMeans)
## Replicting the same function
lapply(list_managers, function(x) for (i in seq_along(ncol(x))){               
                                                mean(x[,i]) 
                                                }
       )

图书馆（动物园）
图书馆（xts）
库（性能分析）
经理们你应该做：

lapply(list_managers, function(x){
  vec <- c()
  for (i in seq(ncol(x))) vec[i] <- mean(x[,i]) 
  vec
  }
)

lapply（列出管理器，功能（x）{
vec你应该做：

lapply(list_managers, function(x){
  vec <- c()
  for (i in seq(ncol(x))) vec[i] <- mean(x[,i]) 
  vec
  }
)

lapply（列出管理器，功能（x）{
vec