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

Question

我正在尝试复制 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]) 
                                                }
       )

Answer 1

你应该做的：

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

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

Replicating colMeans function on every series in every xts object in a list

r

xts