重新平衡具有给定权重的投资组合答案

【问题标题】：Rebalancing portfolio with given weights重新平衡具有给定权重的投资组合
【发布时间】：2018-07-09 12:52:26
【问题描述】：

鉴于我每月在投资组合中使用权重，但我想重新平衡我的投资组合，比如每季度一次。我如何创建一个函数，从我原来的每月权重中减去每个季度的权重，然后重复这些权重直到下一个季度等？我试过使用PerformanceAnalytics 包中的Return.portfolio 和Return.rebalancing，但它似乎没有给我正确的答案。

说原来的权重是这样的：

               [,1]       [,2]      [,3]      [,4]
January   0.5934314 0.40594301 0.1017005 0.5273729
February  0.4186024 0.43438567 0.2401071 0.1998037
March     0.4916238 0.34787895 0.5021476 0.5630176
April     0.1722450 0.03804423 0.3836163 0.3663108
May       0.4119517 0.32062497 0.1087187 0.4715353
June      0.1319934 0.09609216 0.4827495 0.2007550
July      0.1748113 0.36587410 0.2160457 0.1891824
August    0.5924169 0.26085346 0.3804973 0.4542487
September 0.3178340 0.40817036 0.1026307 0.5350073
October   0.1029935 0.51396102 0.2648184 0.3430611
November  0.3668116 0.42736210 0.2782707 0.5204025
December  0.1523560 0.06694210 0.2345268 0.1135560

Stock 1 应产生以下结果：

              [,1]
January   0.5934314
February  0.5934314
March     0.5934314
April     0.1722450
May       0.1722450
June      0.1722450
July      0.1748113
August    0.1748113
September 0.1748113
October   0.1029935
November  0.1029935
December  0.1029935

库存 2,3 和 4 也类似。我想将所有结果存储在一个新元素中，例如 weights.new。

【问题讨论】：

这些投资组合的权重如何？这些行的总和不等于 1。
@WaltS 此处的权重仅作为示例给出，使用随机数。但假设它是一个不受约束的投资组合，我不需要在投资组合中 100% 投资，但也可能投资于无风险资产或其他东西，行不需要总和为 1。
一个只做多的投资组合，就像你的那样，通常总和为 1，因此重新平衡进出无风险资产的影响将被考虑在内。一个多空投资组合可能总和到别的东西。然而，真正的要点是您的权重总和不是一个常数，这意味着在每个再平衡点，资金要么被添加到投资组合中，要么被从投资组合中减去。无论如何，您对权重是随机数的解释解释了该帖子。谢谢。

标签： r portfolio rebalancing

【解决方案1】：

如果您的原始权重存储在weight.mat，您可以执行以下操作

new.weights <- weight.mat[1 + (ceiling((1:12)/3) - 1)*3,]

为了弄清楚发生了什么，1 + (ceiling((1:12)/3) - 1)*3 返回

 # [1]  1  1  1  4  4  4  7  7  7 10 10 10

【讨论】：

【解决方案2】：

下面呢？

library(PerformanceAnalytics);

RebalanceQtr = function(Port.Wgt.xts) {

# Get Qtr endpoints
Port.Qtr.Dts = endpoints(Port.Wgt.xts,on="quarter");

# Get Qtrly Portflio
Port.Qtr = Port.Wgt.xts[Port.Qtr.Dts];

# Merge with Original Portfolio
Port.new = merge(Port.Wgt.xts,Port.Qtr);

# Change colname
colnames(Port.new) = c("Wgt","Wgt.New");

# LOCF
Port.new[,"Wgt.New"] = na.locf(Port.new$"Wgt.New");

return(Port.new);
}

【讨论】：

我尝试运行您的建议，但由于某种原因，我不断收到错误消息“try.xts(x, error = "must be either xts-coercible or timeBased") 中的错误：必须是xts-coercible 或 timeBased "
正确 - 正如错误所说 - 它应该是端点正常工作的 xts 对象。