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) 会得到你想要的。