合并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个对象的列表。我的目标是使用merge合并这些对象：

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)

解决了这个问题。