XTS应用系列和多列XTS？

Question

如何使用apply系列函数,比如说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