Qui est responsable?

Dans la vidéo précédente, vous avez vu la différence entre un budget d'allocation de capital et un budget de risque. Dans cet exercice, vous allez construire un budget de risque et découvrir quelle est la contribution au risque en pourcentage de chaque actif à la volatilité totale du portefeuille.

Pour ce dernier exercice, vous calculerez les contributions au risque pour un portefeuille investi de nouveau à 40 % en actions, 40 % en obligations, 10 % en immobilier et 10 % en produits de base. La fonction StdDev() joue un rôle important ici. La fonction StdDev() crée une liste comprenant l'écart-type des actifs ($StdDev), leur contribution au risque ($contribution) et leur contribution au risque en pourcentage ($pct_contrib_StdDev).

Vous utiliserez trois arguments dans la fonction StdDev() pour effectuer ce calcul. Le premier est R, un vecteur, une matrice, un cadre de données, une série chronologique ou un objet zoo de rendements. Le deuxième est portfolio_method, que vous définirez à component, et le troisième est weights.

L'objet returns est déjà chargé dans votre espace de travail.

Cette activité fait partie du cours

Introduction à l'analyse de portefeuille en R

Voir le cours

Instructions de l’exercice

Créez un vecteur des pondérations du portefeuille appelé weights. N'oubliez pas, l'ordre compte!
Calculez votre budget de volatilité en utilisant StdDev() sur la série de rendements returns. Réglez portfolio_method = "component" et weights égal au vecteur weights que vous avez créé. Nommez-le vol_budget.
Combinez les pondérations et les contributions au risque en pourcentage dans un tableau appelé weights_percrisk à l'aide de cbind().
Affichez le tableau et constatez à quel point les contributions au risque en pourcentage diffèrent des pondérations du portefeuille.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# Create portfolio weights


# Create volatility budget
vol_budget <- StdDev(___, portfolio_method = "___", weights = ___)

# Make a table of weights and risk contribution

colnames(weights_percrisk) <- c("weights", "perc vol contrib")

# Print the table

Modifier et exécuter le code