do.call cbind - 需要什么属性？

Question

mat <- matrix(rnorm(1000*15, mean=1/100), ncol=15)
mat <- xts(mat, as.Date(1:1000))

test <- lapply(c(1:10), function(x) { 
  data <- mat[,c(1:x)]
  means <- xts(round(rowMeans(data), 4), index(data))
  means
  })

do.call(cbind, test) 

这不起作用，并提供如下内容：c..0.3219..0.0894 ... 0.0459..0.1554..0.0708 ... 0.4475..0.1794..0.0017 ...

cbind(test[[1]],test[[2]],test[[3]],test[[4]],test[[5]],test[[6]],test[[7]],test[[8]],test[[9]],test[[10]])

就像预料的那样。

Answer 1

我认为Reduce(cbind, test)可以满足您的需求。