合并不同大小的 xts 对象

Question

我想合并不同的 xts 对象：

library("quantmod")
library("PerformanceAnalytics")
library("zoo")

ticks <- c("ABB","GEBN.VX","HOLN.VX")
starting.date<-as.Date("2012-01-01")
Data<-new.env()
getSymbols(ticks, env = Data, src = "yahoo", from = starting.date)

接下来我想用eapply计算回报

returns <- eapply(Data,dailyReturn,type="log") 

这给出了xts 对象的列表。我的目标是使用合并来合并这些对象：

merged.returns <- merge(returns)

我也尝试了fill=NA、join="inner" 选项，但我总是收到相同的错误消息：

Error in data.frame(HOLN.VX = c(-0.00629152721948027, -0.0298954647966263,  : 
arguments imply differing number of rows: 833, 824, 723, 849

我该如何解决这个问题？

Answer 1

我找到了解决方案。我们需要使用do.call

do.call(merge,returns)

这解决了问题。