XTS应用家庭和多列XTS？

Question

如何使用功能家族的功能，如apply.daily多元XTS？

因此，例如：

 
Time,a,b 
... 
2012-02-11 16:21:24 4.7258 7.7258 
2012-02-11 16:26:25 4.9096 12.3796 
2012-02-11 16:31:25 4.7904 2.2204 
... 

我怎么会用柱使用apply.daily和mean到整个矩阵。因此，结果将是当天的单个时间戳，下一列的平均值为a，之后的列为平均值b。

我想为任意数列（不知道列和名称金额 - 当然，所有的数值）做到这一点。

Answer 1

你可以简单地使用colMeans采取每列的平均值：

library(quantmod) 
getSymbols("SPY") 
spy1 <- apply.weekly(SPY, colMeans) 

你也可以定义使用apply在你的对象列的任意函数：

spy2 <- apply.weekly(SPY, function(x) apply(x,2,mean)) 
identical(spy1,spy2) 
# [1] TRUE