r - 使用 PerformanceAnalytics 重新平衡投资组合

Question

我正在尝试使用 PerformanceAnalytics 通过每日重新平衡来回测一些投资组合的表现。下面是一个虚拟示例：

ret     <- xts(matrix(rnorm(20, 0, 0.01), nrow = 10), as.Date(1:10))
weights <- runif(10)
weights <- xts(cbind(weights, 1 - weights), as.Date(1:10))

names(ret) <- c('a', 'b')
names(weights) <- names(ret)

Return.rebalancing(ret, weights)

但是，上面的代码给出了以下错误：

Error in '[.xts'(result, 2:length(result)) : subscript out of bounds

我错过了什么？