真实案例

R 中级投资组合分析

Ross Bennett

Instructor

真实案例

解决与行业类似的投资组合优化问题
应用本课程所学方法
- 设定含约束和目标的投资组合
- 在历史数据上按周期再平衡运行优化
- 分析结果
- 优化约束、目标与矩估计
数据
- EDHEC-Risk 另类指数月度收益 {6}
- 1997年1月 - 2016年3月

data(indexes)
returns <- indexes[,1:4]

# Equal weight benchmark
n <- ncol(returns)
equal_weights <- rep(1 / n, n)

benchmark_returns <- Return.portfolio(R = returns, 
                                      weights = equal_weights,
                                      rebalance_on = "years")
colnames(benchmark_returns) <- "benchmark"

# Benchmark performance
table.AnnualizedReturns(benchmark_returns)

                          benchmark
Annualized Return            0.0775
Annualized Std Dev           0.1032
Annualized Sharpe (Rf=0%)    0.7509

基线投资组合定义

定义作为基线的投资组合规范
基线规范应简单：宽松约束、基本目标

# Base portfolio specification
base_port_spec <- portfolio.spec(assets = colnames(returns))
base_port_spec <- add.constraint(portfolio = base_port_spec,
                                 type = "full_investment")
base_port_spec <- add.constraint(portfolio = base_port_spec,
                                 type = "long_only")
base_port_spec <- add.objective(portfolio = base_port_spec, 
                                type = "risk", name = "StdDev")

让我们练习！

R 中级投资组合分析