```
library(tidyverse)
library(RSQLite)
library(scales)
library(nloptr)
```

# Constrained Optimization and Backtesting

You are reading **Tidy Finance with R**. You can find the equivalent chapter for the sibling **Tidy Finance with Python** here.

In this chapter, we conduct portfolio backtesting in a realistic setting by including transaction costs and investment constraints such as no-short-selling rules. We start with standard mean-variance efficient portfolios and introduce constraints in a step-by-step manner. To do so, we rely on numerical optimization procedures in R. We conclude the chapter by providing an out-of-sample backtesting procedure for the different strategies that we introduce in this chapter.

Throughout this chapter, we use the following R packages:

Compared to previous chapters, we introduce the `nloptr`

package (Johnson 2007) to perform numerical constrained optimization for portfolio choice problems.

## Data Preparation

We start by loading the required data from our `SQLite`

-database introduced in Accessing and Managing Financial Data. For simplicity, we restrict our investment universe to the monthly Fama-French industry portfolio returns in the following application.

```
<- dbConnect(
tidy_finance SQLite(),
"data/tidy_finance_r.sqlite",
extended_types = TRUE
)
<- tbl(tidy_finance, "industries_ff_monthly") |>
industry_returns select(-month) |>
collect() |>
drop_na()
```

## Recap of Portfolio Choice

A common objective for portfolio optimization is to find mean-variance efficient portfolio weights, i.e., the allocation which delivers the lowest possible return variance for a given minimum level of expected returns. In the most extreme case, where the investor is only concerned about portfolio variance, she may choose to implement the minimum variance portfolio (MVP) weights which are given by the solution to \[\omega_\text{mvp} = \arg\min \omega'\Sigma \omega \text{ s.t. } \omega'\iota = 1\] where \(\Sigma\) is the \((N \times N)\) covariance matrix of the returns. The optimal weights \(\omega_\text{mvp}\) can be found analytically and are \(\omega_\text{mvp} = \frac{\Sigma^{-1}\iota}{\iota'\Sigma^{-1}\iota}\). In terms of code, the math is equivalent to the following chunk.

```
<- ncol(industry_returns)
n_industries
<- cov(industry_returns)
Sigma <- solve(Sigma) %*% rep(1, n_industries)
w_mvp <- as.vector(w_mvp / sum(w_mvp))
w_mvp
<- colMeans(industry_returns) mu
```

Next, consider an investor who aims to achieve minimum variance *given a required expected portfolio return* \(\bar{\mu}\) such that she chooses \[\omega_\text{eff}({\bar{\mu}}) =\arg\min \omega'\Sigma \omega \text{ s.t. } \omega'\iota = 1 \text{ and } \omega'\mu \geq \bar{\mu}.\] We leave it as an exercise below to show that the portfolio choice problem can equivalently be formulated for an investor with mean-variance preferences and risk aversion factor \(\gamma\). That means the investor aims to choose portfolio weights as the solution to \[ \omega^*_\gamma = \arg\max \omega' \mu - \frac{\gamma}{2}\omega'\Sigma \omega\quad \text{ s.t. } \omega'\iota = 1.\] The solution to the optimal portfolio choice problem is: \[\omega^*_{\gamma} = \frac{1}{\gamma}\left(\Sigma^{-1} - \frac{1}{\iota' \Sigma^{-1}\iota }\Sigma^{-1}\iota\iota' \Sigma^{-1} \right) \mu + \frac{1}{\iota' \Sigma^{-1} \iota }\Sigma^{-1} \iota.\] Empirically, this classical solution imposes many problems. In particular, the estimates of \(\mu\) are noisy over short horizons, the (\(N \times N\)) matrix \(\Sigma\) contains \(N(N-1)/2\) distinct elements and thus, estimation error is huge. Seminal papers on the effect of ignoring estimation uncertainty, among others, are Brown (1976), Jobson and Korkie (1980), Jorion (1986), and Chopra and Ziemba (1993).

Even worse, if the asset universe contains more assets than available time periods \((N > T)\), the sample covariance matrix is no longer positive definite such that the inverse \(\Sigma^{-1}\) does not exist anymore. To address estimation issues for vast-dimensional covariance matrices, regularization techniques are a popular tool (see, e.g., Ledoit and Wolf 2003, 2004, 2012; Fan, Fan, and Lv 2008).

While the uncertainty associated with estimated parameters is challenging, the data-generating process is also unknown to the investor. In other words, model uncertainty reflects that it is ex-ante not even clear which parameters require estimation (for instance, if returns are driven by a factor model, selecting the universe of relevant factors imposes model uncertainty). Wang (2005) and Garlappi, Uppal, and Wang (2007) provide theoretical analysis on optimal portfolio choice under model *and* estimation uncertainty. In the most extreme case, Pflug, Pichler, and Wozabal (2012) shows that the naive portfolio which allocates equal wealth to all assets is the optimal choice for an investor averse to model uncertainty.

On top of the estimation uncertainty, *transaction costs* are a major concern. Rebalancing portfolios is costly, and, therefore, the optimal choice should depend on the investor’s current holdings. In the presence of transaction costs, the benefits of reallocating wealth may be smaller than the costs associated with turnover. This aspect has been investigated theoretically, among others, for one risky asset by Magill and Constantinides (1976) and Davis and Norman (1990). Subsequent extensions to the case with multiple assets have been proposed by Balduzzi and Lynch (1999) and Balduzzi and Lynch (2000). More recent papers on empirical approaches which explicitly account for transaction costs include Gârleanu and Pedersen (2013), and DeMiguel, Nogales, and Uppal (2014), and DeMiguel, Martín-Utrera, and Nogales (2015).

## Estimation Uncertainty and Transaction Costs

The empirical evidence regarding the performance of a mean-variance optimization procedure in which you simply plug in some sample estimates \(\hat \mu\) and \(\hat \Sigma\) can be summarized rather briefly: mean-variance optimization performs poorly! The literature discusses many proposals to overcome these empirical issues. For instance, one may impose some form of regularization of \(\Sigma\), rely on Bayesian priors inspired by theoretical asset pricing models (Kan and Zhou 2007) or use high-frequency data to improve forecasting (Hautsch, Kyj, and Malec 2015). One unifying framework that works easily, effectively (even for large dimensions), and is purely inspired by economic arguments is an ex-ante adjustment for transaction costs (Hautsch and Voigt 2019).

Assume that returns are from a multivariate normal distribution with mean \(\mu\) and variance-covariance matrix \(\Sigma\), \(N(\mu,\Sigma)\). Additionally, we assume quadratic transaction costs which penalize rebalancing such that \[ \begin{aligned} \nu\left(\omega_{t+1},\omega_{t^+}, \beta\right) = \frac{\beta}{2} \left(\omega_{t+1} - \omega_{t^+}\right)'\left(\omega_{t+1}- \omega_{t^+}\right),\end{aligned}\] with cost parameter \(\beta>0\) and \(\omega_{t^+} = {\omega_t \circ (1 +r_{t})}/{\iota' (\omega_t \circ (1 + r_{t}))}\). \(\omega_{t^+}\) denotes the portfolio weights just before rebalancing. Note that \(\omega_{t^+}\) differs mechanically from \(\omega_t\) due to the returns in the past period. Intuitively, transaction costs penalize portfolio performance when the portfolio is shifted from the current holdings \(\omega_{t^+}\) to a new allocation \(\omega_{t+1}\). In this setup, transaction costs do not increase linearly. Instead, larger rebalancing is penalized more heavily than small adjustments. Then, the optimal portfolio choice for an investor with mean variance preferences is \[\begin{aligned}\omega_{t+1} ^* &= \arg\max \omega'\mu - \nu_t (\omega,\omega_{t^+}, \beta) - \frac{\gamma}{2}\omega'\Sigma\omega \text{ s.t. } \iota'\omega = 1\\ &=\arg\max \omega'\mu^* - \frac{\gamma}{2}\omega'\Sigma^* \omega \text{ s.t.} \iota'\omega=1,\end{aligned}\] where \[\mu^*=\mu+\beta \omega_{t^+} \quad \text{and} \quad \Sigma^*=\Sigma + \frac{\beta}{\gamma} I_N.\] As a result, adjusting for transaction costs implies a standard mean-variance optimal portfolio choice with adjusted return parameters \(\Sigma^*\) and \(\mu^*\): \[\omega^*_{t+1} = \frac{1}{\gamma}\left(\Sigma^{*-1} - \frac{1}{\iota' \Sigma^{*-1}\iota }\Sigma^{*-1}\iota\iota' \Sigma^{*-1} \right) \mu^* + \frac{1}{\iota' \Sigma^{*-1} \iota }\Sigma^{*-1} \iota.\]

An alternative formulation of the optimal portfolio can be derived as follows: \[\omega_{t+1} ^*=\arg\max \omega'\left(\mu+\beta\left(\omega_{t^+} - \frac{1}{N}\iota\right)\right) - \frac{\gamma}{2}\omega'\Sigma^* \omega \text{ s.t. } \iota'\omega=1.\] The optimal weights correspond to a mean-variance portfolio, where the vector of expected returns is such that assets that currently exhibit a higher weight are considered as delivering a higher expected return.

## Optimal Portfolio Choice

The function below implements the efficient portfolio weight in its general form, allowing for transaction costs (conditional on the holdings *before* reallocation). For \(\beta=0\), the computation resembles the standard mean-variance efficient framework. `gamma`

denotes the coefficient of risk aversion \(\gamma\), `beta`

is the transaction cost parameter \(\beta\) and `w_prev`

are the weights before rebalancing \(\omega_{t^+}\).

```
<- function(Sigma,
compute_efficient_weight
mu,gamma = 2,
beta = 0, # transaction costs
w_prev = rep(
1 / ncol(Sigma),
ncol(Sigma)
)) {<- rep(1, ncol(Sigma))
iota <- Sigma + beta / gamma * diag(ncol(Sigma))
Sigma_processed <- mu + beta * w_prev
mu_processed
<- solve(Sigma_processed)
Sigma_inverse
<- Sigma_inverse %*% iota
w_mvp <- as.vector(w_mvp / sum(w_mvp))
w_mvp <- w_mvp + 1 / gamma *
w_opt - w_mvp %*% t(iota) %*% Sigma_inverse) %*%
(Sigma_inverse
mu_processed
return(as.vector(w_opt))
}
<- compute_efficient_weight(Sigma, mu)
w_efficient round(w_efficient, 3)
```

```
[1] 1.630 0.090 -1.356 0.687 0.333 -0.412 0.504 0.402 -0.219
[10] -0.659
```

The portfolio weights above indicate the efficient portfolio for an investor with risk aversion coefficient \(\gamma=2\) in absence of transaction costs. Some of the positions are negative which implies short-selling, most of the positions are rather extreme. For instance, a position of \(-1\) implies that the investor takes a short position worth her entire wealth to lever long positions in other assets. What is the effect of transaction costs or different levels of risk aversion on the optimal portfolio choice? The following few lines of code analyze the distance between the minimum variance portfolio and the portfolio implemented by the investor for different values of the transaction cost parameter \(\beta\) and risk aversion \(\gamma\).

```
<- c(2, 4, 8, 20)
gammas <- 20 * qexp((1:99) / 100)
betas
<- expand_grid(
transaction_costs gamma = gammas,
beta = betas
|>
) mutate(
weights = map2(
.x = gamma,
.y = beta,
~ compute_efficient_weight(Sigma,
mu,gamma = .x,
beta = .y / 10000,
w_prev = w_mvp
)
),concentration = map_dbl(weights, ~ sum(abs(. - w_mvp)))
)
```

The code chunk above computes the optimal weight in presence of transaction cost for different values of \(\beta\) and \(\gamma\) but with the same initial allocation, the theoretical optimal minimum variance portfolio. Starting from the initial allocation, the investor chooses her optimal allocation along the efficient frontier to reflect her own risk preferences. If transaction costs would be absent, the investor would simply implement the mean-variance efficient allocation. If transaction costs make it costly to rebalance, her optimal portfolio choice reflects a shift toward the efficient portfolio, whereas her current portfolio anchors her investment.

```
|>
transaction_costs mutate(risk_aversion = as_factor(gamma)) |>
ggplot(aes(
x = beta,
y = concentration,
color = risk_aversion,
linetype = risk_aversion
+
)) geom_line() +
guides(linetype = "none") +
labs(
x = "Transaction cost parameter",
y = "Distance from MVP",
color = "Risk aversion",
title = "Portfolio weights for different risk aversion and transaction cost"
)
```

Figure 1 shows rebalancing from the initial portfolio (which we always set to the minimum variance portfolio weights in this example). The higher the transaction costs parameter \(\beta\), the smaller is the rebalancing from the initial portfolio. In addition, if risk aversion \(\gamma\) increases, the efficient portfolio is closer to the minimum variance portfolio weights such that the investor desires less rebalancing from the initial holdings.

## Constrained Optimization

Next, we introduce constraints to the above optimization procedure. Very often, typical constraints such as short-selling restrictions prevent analytical solutions for optimal portfolio weights (short-selling restrictions simply imply that negative weights are not allowed such that we require that \(w_i \geq 0\quad \forall i\)). However, numerical optimization allows computing the solutions to such constrained problems.

We rely on the powerful `nloptr`

package, which provides a common interface to a number of different optimization routines. In particular, we employ the Sequential Least-Squares Quadratic Programming (SLSQP) algorithm of Kraft (1994) because it is able to hand multiple equality and inequality constraints at the same time and typically used for problems where the objective function and the constraints are twice continuously differentiable. We hence have to provide the algorithm with the objective function and its gradient, as well as the constraints and their Jacobian.

We illustrate the use of the `nloptr()`

function by replicating the analytical solutions for the minimum variance and efficient portfolio weights from above. Note that the equality constraint for both solutions is given by the requirement that the weights must sum up to one. In addition, we supply a vector of equal weights as an initial value for the algorithm in all applications. We verify that the output is equal to the above solution. Note that `near()`

is a safe way to compare two vectors for pairwise equality. The alternative `==`

is sensitive to small differences that may occur due to the representation of floating points on a computer, while `near()`

has a built-in tolerance.

```
<- rep(1 / n_industries, n_industries)
w_initial
<- function(w) {
objective_mvp 0.5 * t(w) %*% Sigma %*% w
}
<- function(w) {
gradient_mvp %*% w
Sigma
}
<- function(w) {
equality_constraint sum(w) - 1
}
<- function(w) {
jacobian_equality rep(1, n_industries)
}
<- list(
options "xtol_rel"=1e-20,
"algorithm" = "NLOPT_LD_SLSQP",
"maxeval" = 10000
)
<- nloptr(
w_mvp_numerical x0 = w_initial,
eval_f = objective_mvp,
eval_grad_f = gradient_mvp,
eval_g_eq = equality_constraint,
eval_jac_g_eq = jacobian_equality,
opts = options
)
all(near(w_mvp, w_mvp_numerical$solution))
```

`[1] TRUE`

```
<- function(w) {
objective_efficient 2 * 0.5 * t(w) %*% Sigma %*% w - sum((1 + mu) * w)
}
<- function(w) {
gradient_efficient 2 * Sigma %*% w - (1 + mu)
}
<- nloptr(
w_efficient_numerical x0 = w_initial,
eval_f = objective_efficient,
eval_grad_f = gradient_efficient,
eval_g_eq = equality_constraint,
eval_jac_g_eq = jacobian_equality,
opts = options
)
all(near(w_efficient, w_efficient_numerical$solution))
```

`[1] TRUE`

The result above shows that indeed the numerical procedure recovered the optimal weights for a scenario, where we already know the analytic solution. For more complex optimization routines, R’s optimization task view provides an overview of the vast optimization landscape.

Next, we approach problems where no analytical solutions exist. First, we additionally impose short-sale constraints, which implies \(N\) inequality constraints of the form \(\omega_i >=0\). We can implement the short sale constraints by imposing a vector of lower bounds `lb = rep(0, n_industries)`

.

```
<- nloptr(
w_no_short_sale x0 = w_initial,
eval_f = objective_efficient,
eval_grad_f = gradient_efficient,
eval_g_eq = equality_constraint,
eval_jac_g_eq = jacobian_equality,
lb = rep(0, n_industries),
opts = options
)
round(w_no_short_sale$solution, 3)
```

` [1] 0.610 0.000 0.000 0.211 0.000 0.000 0.000 0.179 0.000 0.000`

As expected, the resulting portfolio weights are all positive (up to numerical precision). Typically, the holdings in the presence of short-sale constraints are concentrated among way fewer assets than for the unrestricted case. You can verify that `sum(w_no_short_sale$solution)`

returns 1. In other words: `nloptr()`

provides the numerical solution to a portfolio choice problem for a mean-variance investor with risk aversion `gamma = 2`

, where negative holdings are forbidden.

`nloptr()`

can also handle more complex problems. As an example, we show how to compute optimal weights, subject to the so-called Regulation T-constraint, which requires that the sum of all absolute portfolio weights is smaller than 1.5, that is \(\sum_{i=1}^N |\omega_i| \leq 1.5\). The constraint enforces that a maximum of 50 percent of the allocated wealth can be allocated to short positions, thus implying an initial margin requirement of 50 percent. Imposing such a margin requirement reduces portfolio risks because extreme portfolio weights are not attainable anymore. The implementation of Regulation-T rules is numerically interesting because the margin constraints imply a non-linear constraint on the portfolio weights.

```
<- 1.5
reg_t
<- function(w) {
inequality_constraint sum(abs(w)) - reg_t
}
<- function(w) {
jacobian_inequality sign(w)
}
<- function(w) {
objective_reg_t - t(w) %*% (1 + mu) +
2 * 0.5 * t(w) %*% Sigma %*% w
}
<- function(w) {
gradient_reg_t - (1 + mu) + 2 * Sigma %*% w
}
<- nloptr(
w_reg_t x0 = w_initial,
eval_f = objective_reg_t,
eval_grad_f = gradient_reg_t,
eval_g_eq = equality_constraint,
eval_jac_g_eq = jacobian_equality,
eval_g_ineq = inequality_constraint,
eval_jac_g_ineq = jacobian_inequality,
opts = options
)
round(w_reg_t$solution, 3)
```

```
[1] 0.736 0.000 -0.135 0.264 0.000 -0.019 0.028 0.223 0.000
[10] -0.096
```

Figure 2 shows the optimal allocation weights across all 10 industries for the four different strategies considered so far: minimum variance, efficient portfolio with \(\gamma\) = 2, efficient portfolio with short-sale constraints, and the Regulation-T constrained portfolio.

```
tibble(
`No short-sale` = w_no_short_sale$solution,
`Minimum Variance` = w_mvp,
`Efficient portfolio` = compute_efficient_weight(Sigma, mu),
`Regulation-T` = w_reg_t$solution,
Industry = colnames(industry_returns)
|>
) pivot_longer(-Industry,
names_to = "Strategy",
values_to = "weights"
|>
) ggplot(aes(
fill = Strategy,
y = weights,
x = Industry
+
)) geom_bar(position = "dodge", stat = "identity") +
coord_flip() +
labs(
y = "Allocation weight", fill = NULL,
title = "Optimal allocations for different strategies"
+
) scale_y_continuous(labels = percent)
```

The results clearly indicate the effect of imposing additional constraints: the extreme holdings the investor implements if she follows the (theoretically optimal) efficient portfolio vanish under, e.g., the Regulation-T constraint. You may wonder why an investor would deviate from what is theoretically the optimal portfolio by imposing potentially arbitrary constraints. The short answer is: the *efficient portfolio* is only efficient if the true parameters of the data generating process correspond to the estimated parameters \(\hat\Sigma\) and \(\hat\mu\). Estimation uncertainty may thus lead to inefficient allocations. By imposing restrictions, we implicitly shrink the set of possible weights and prevent extreme allocations, which could result from *error-maximization* due to estimation uncertainty (Jagannathan and Ma 2003).

Before we move on, we want to propose a final allocation strategy, which reflects a somewhat more realistic structure of transaction costs instead of the quadratic specification used above. The function below computes efficient portfolio weights while adjusting for transaction costs of the form \(\beta\sum_{i=1}^N |(\omega_{i, t+1} - \omega_{i, t^+})|\). No closed-form solution exists, and we rely on non-linear optimization procedures.

```
<- function(mu,
compute_efficient_weight_L1_TC
Sigma,
gamma,
beta,
initial_weights) {<- function(w) {
objective -t(w) %*% mu +
/ 2 * t(w) %*% Sigma %*% w +
gamma / 10000) / 2 * sum(abs(w - initial_weights))
(beta
}
<- function(w) {
gradient -mu + gamma * Sigma %*% w +
/ 10000) * 0.5 * sign(w - initial_weights)
(beta
}
<- nloptr(
w_optimal x0 = initial_weights,
eval_f = objective,
eval_grad_f = gradient,
eval_g_eq = equality_constraint,
eval_jac_g_eq = jacobian_equality,
opts = options
)
return(w_optimal$solution)
}
```

## Out-of-Sample Backtesting

For the sake of simplicity, we committed one fundamental error in computing portfolio weights above: we used the full sample of the data to determine the optimal allocation (Arnott, Harvey, and Markowitz 2019). To implement this strategy at the beginning of the 2000s, you will need to know how the returns will evolve until 2021. While interesting from a methodological point of view, we cannot evaluate the performance of the portfolios in a reasonable out-of-sample fashion. We do so next in a backtesting application for three strategies. For the backtest, we recompute optimal weights just based on past available data.

The few lines below define the general setup. We consider 120 periods from the past to update the parameter estimates before recomputing portfolio weights. Then, we update portfolio weights which is costly and affects the performance. The portfolio weights determine the portfolio return. A period later, the current portfolio weights have changed and form the foundation for transaction costs incurred in the next period. We consider three different competing strategies: the mean-variance efficient portfolio, the mean-variance efficient portfolio with ex-ante adjustment for transaction costs, and the naive portfolio, which allocates wealth equally across the different assets.

```
<- 120
window_length <- nrow(industry_returns) - window_length
periods
<- 50
beta <- 2
gamma
<- matrix(NA,
performance_values nrow = periods,
ncol = 3
)colnames(performance_values) <- c("raw_return", "turnover", "net_return")
<- list(
performance_values "MV (TC)" = performance_values,
"Naive" = performance_values,
"MV" = performance_values
)
<- w_prev_2 <- w_prev_3 <- rep(
w_prev_1 1 / n_industries,
n_industries )
```

We also define two helper functions: one to adjust the weights due to returns and one for performance evaluation, where we compute realized returns net of transaction costs.

```
<- function(w, next_return) {
adjust_weights <- 1 + w * next_return
w_prev as.numeric(w_prev / sum(as.vector(w_prev)))
}
<- function(w, w_previous, next_return, beta = 50) {
evaluate_performance <- as.matrix(next_return) %*% w
raw_return <- sum(abs(w - w_previous))
turnover <- raw_return - beta / 10000 * turnover
net_return c(raw_return, turnover, net_return)
}
```

The following code chunk performs a rolling-window estimation, which we implement in a loop. In each period, the estimation window contains the returns available up to the current period. Note that we use the sample variance-covariance matrix and ignore the estimation of \(\hat\mu\) entirely, but you might use more advanced estimators in practice.

```
for (p in 1:periods) {
<- industry_returns[p:(p + window_length - 1), ]
returns_window <- industry_returns[p + window_length, ] |> as.matrix()
next_return
<- cov(returns_window)
Sigma <- 0 * colMeans(returns_window)
mu
# Transaction-cost adjusted portfolio
<- compute_efficient_weight_L1_TC(
w_1 mu = mu,
Sigma = Sigma,
beta = beta,
gamma = gamma,
initial_weights = w_prev_1
)
1]][p, ] <- evaluate_performance(w_1,
performance_values[[
w_prev_1,
next_return,beta = beta
)
<- adjust_weights(w_1, next_return)
w_prev_1
# Naive portfolio
<- rep(1 / n_industries, n_industries)
w_2
2]][p, ] <- evaluate_performance(
performance_values[[
w_2,
w_prev_2,
next_return
)
<- adjust_weights(w_2, next_return)
w_prev_2
# Mean-variance efficient portfolio (w/o transaction costs)
<- compute_efficient_weight(
w_3 Sigma = Sigma,
mu = mu,
gamma = gamma
)
3]][p, ] <- evaluate_performance(
performance_values[[
w_3,
w_prev_3,
next_return
)
<- adjust_weights(w_3, next_return)
w_prev_3 }
```

Finally, we get to the evaluation of the portfolio strategies *net-of-transaction costs*. Note that we compute annualized returns and standard deviations.

```
<- lapply(
performance
performance_values,
as_tibble|>
) bind_rows(.id = "strategy")
<- 12
length_year
<- performance |>
performance_table group_by(Strategy = strategy) |>
summarize(
Mean = length_year * mean(100 * net_return),
SD = sqrt(length_year) * sd(100 * net_return),
`Sharpe ratio` = if_else(Mean > 0,
/ SD,
Mean NA_real_
),Turnover = 100 * mean(turnover)
)
|>
performance_table mutate(across(-Strategy, ~round(., 4)))
```

```
# A tibble: 3 × 5
Strategy Mean SD `Sharpe ratio` Turnover
<chr> <dbl> <dbl> <dbl> <dbl>
1 MV -0.899 12.6 NA 211.
2 MV (TC) 11.9 15.2 0.780 0
3 Naive 11.8 15.2 0.779 0.234
```

The results clearly speak against mean-variance optimization. Turnover is huge when the investor only considers her portfolio’s expected return and variance. Effectively, the mean-variance portfolio generates a *negative* annualized return after adjusting for transaction costs. At the same time, the naive portfolio turns out to perform very well. In fact, the performance gains of the transaction-cost adjusted mean-variance portfolio are small. The out-of-sample Sharpe ratio is slightly higher than for the naive portfolio. Note the extreme effect of turnover penalization on turnover: *MV (TC)* effectively resembles a buy-and-hold strategy which only updates the portfolio once the estimated parameters \(\hat\mu_t\) and \(\hat\Sigma_t\)indicate that the current allocation is too far away from the optimal theoretical portfolio.

## Exercises

- Consider the portfolio choice problem for transaction-cost adjusted certainty equivalent maximization with risk aversion parameter \(\gamma\) \[\omega_{t+1} ^* = \arg\max_{\omega \in \mathbb{R}^N, \iota'\omega = 1} \omega'\mu - \nu_t (\omega, \beta) - \frac{\gamma}{2}\omega'\Sigma\omega\] where \(\Sigma\) and \(\mu\) are (estimators of) the variance-covariance matrix of the returns and the vector of expected returns. Assume for now that transaction costs are quadratic in rebalancing
*and*proportional to stock illiquidity such that \[\nu_t\left(\omega, B\right) = \frac{\beta}{2} \left(\omega - \omega_{t^+}\right)'B\left(\omega - \omega_{t^+}\right)\] where \(B = \text{diag}(ill_1, \ldots, ill_N)\) is a diagonal matrix, where \(ill_1, \ldots, ill_N\). Derive a closed-form solution for the mean-variance efficient portfolio \(\omega_{t+1} ^*\) based on the transaction cost specification above. Discuss the effect of illiquidity \(ill_i\) on the individual portfolio weights relative to an investor that myopically ignores transaction costs in her decision. - Use the solution from the previous exercise to update the function
`compute_efficient_weight()`

such that you can compute optimal weights conditional on a matrix \(B\) with illiquidity measures. - Illustrate the evolution of the
*optimal*weights from the naive portfolio to the efficient portfolio in the mean-standard deviation diagram. - Is it always optimal to choose the same \(\beta\) in the optimization problem than the value used in evaluating the portfolio performance? In other words: can it be optimal to choose theoretically sub-optimal portfolios based on transaction cost considerations that do not reflect the actual incurred costs? Evaluate the out-of-sample Sharpe ratio after transaction costs for a range of different values of imposed \(\beta\) values.

## References

*The Journal of Financial Data Science*1 (1): 64–74. https://doi.org/10.3905/jfds.2019.1.064.

*Journal of Financial Economics*52 (1): 47–78. https://doi.org/10.1016/S0304-405X(99)00004-5.

*The Journal of Finance*55 (5): 2285–2309. https://www.jstor.org/stable/222490.

*Journal of Portfolio Management*19 (2): 6–11. https://doi.org/10.3905/jpm.1993.409440.

*Mathematics of Operations Research*15 (4): 676–713. https://doi.org/10.1287/moor.15.4.676.

*Journal of Financial and Quantitative Analysis*50 (6): 1443–71. https://doi.org/10.1017/S002210901500054X.

*Review of Financial Studies*27 (4): 1031–73. https://doi.org/10.1093/rfs/hhu002.

*Journal of Econometrics*147 (1): 186–97. https://doi.org/10.1016/j.jeconom.2008.09.017.

*Review of Financial Studies*20 (1): 41–81. https://doi.org/10.1093/rfs/hhl003.

*The Journal of Finance*68 (6): 2309–40. https://doi.org/10.1111/jofi.12080.

*Journal of Applied Econometrics*30 (2): 263–90. https://doi.org/10.1002/jae.2361.

*Journal of Econometrics*212 (1): 221–40. https://doi.org/10.1016/j.jeconom.2019.04.028.

*The Journal of Finance*58 (4): 1651–84. https://doi.org/10.1111/1540-6261.00580.

*Journal of the American Statistical Association*75 (371): 544–54. https://doi.org/10.1080/01621459.1980.10477507.

*Journal of Financial and Quantitative Analysis*21 (03): 279–92. https://doi.org/10.2307/2331042.

*Journal of Financial and Quantitative Analysis*42 (3): 621–56. https://doi.org/10.1017/s0022109000004129.

*ACM Trans. Math. Softw.*20 (3): 262–81. https://doi.org/10.1145/192115.192124.

*Journal of Empirical Finance*10 (5): 603–21. https://doi.org/10.1016/S0927-5398(03)00007-0.

*The Journal of Portfolio Management*30 (4): 110–19. https://doi.org/10.3905/jpm.2004.110.

*The Annals of Statistics*40 (2): 1024–60. https://doi.org/10.1214/12-AOS989.

*Journal of Economic Theory*13 (2): 245–63. https://doi.org/10.1016/0022-0531(76)90018-1.

*Journal of Banking & Finance*36 (2): 410–17. https://doi.org/10.1016/j.jbankfin.2011.07.018.

*Review of Financial Studies*18 (2): 673–705. https://www.jstor.org/stable/3598049.