用给定的权重重新平衡投资组合

Question

考虑到我在投资组合中使用每月权重，但我想重新平衡我的投资组合，比如每季度一次。我如何创建一个函数，每个季度只从我原来的每月权重中减去权重，然后重复这些权重直到下一个季度等？我试过使用 Return.portfolio 和 PerformanceAnalytics 包中的 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

库存 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。

Answer 1

下面呢？

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);
}

Answer 2

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

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

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

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

用给定的权重重新平衡投资组合

Rebalancing portfolio with given weights

r

portfolio

rebalancing