例如，我如何使用 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 and mean按列到整个矩阵。因此结果将是当天的单个时间戳，即a对于下一列，以及平均值b之后的专栏。
我想对任意数量的列执行此操作（列的数量和名称未知 - 当然都是数字）。
你可以简单地使用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
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
