Média e volatilidade anualizadas em janela móvel
Nos exercícios anteriores, você já se familiarizou com as funções Return.annualized() e StdDev.annualized(). Neste exercício, você também vai usar a função SharpeRatio.annualized() para calcular o Sharpe Ratio anualizado. Essa função recebe os argumentos R e Rf. O argumento R aceita um objeto xts, vector, matrix, data.frame, timeSeries ou zoo com os retornos do ativo. O argumento Rf é necessário em SharpeRatio.annualized(), pois considera a taxa livre de risco no mesmo período dos seus retornos. Para este exemplo, você pode usar o objeto rf para preencher o argumento Rf.
A função chart.RollingPerformance() facilita a visualização das estimativas móveis de desempenho no R. Primeiro, familiarize-se com a sintaxe dessa função. É preciso especificar a série temporal dos retornos do portfólio (definindo o argumento R), o tamanho da janela (width) e a função usada para calcular o desempenho (argumento FUN). Para ver os três gráficos juntos, o PerformanceAnalytics fornece a função atalho charts.RollingPerformance(). Observe o charts em vez de chart. Essa função cria todos os gráficos anteriores de uma vez e não usa o argumento FUN!
Este exercício faz parte do curso
Introdução à Análise de Portfólios em R
Instruções do exercício
- Calcule os retornos, a volatilidade e o Sharpe Ratio anualizados para
sp500_returns. Atribua esses valores areturns_ann,sd_annesharpe_ann, respectivamente. Lembre-se de informar a taxa livre de risco no argumentoRfao calcular o Sharpe Ratio. - Fornecemos o código para um gráfico com a estimativa móvel de 12 meses da média anualizada. Use-o como base para os outros gráficos!
- Faça o gráfico das estimativas móveis de 12 meses da volatilidade anualizada dos retornos do S&P 500.
- Faça o gráfico das estimativas móveis de 12 meses do Sharpe Ratio anualizado dos retornos do S&P 500.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# Calculate the mean, volatility, and Sharpe ratio of sp500_returns
returns_ann <- ___
sd_ann <- ___
sharpe_ann <- ___
# Plotting the 12-month rolling annualized mean
chart.RollingPerformance(R = sp500_returns, width = 12, FUN = "Return.annualized")
# Plotting the 12-month rolling annualized standard deviation
___
# Plotting the 12-month rolling annualized Sharpe ratio
___