Évaluation par échantillons distincts

Au chapitre 2, vous avez utilisé la fonction window() pour filtrer vos rendements à des fins graphiques. Dans cet exercice, vous utiliserez window() pour créer deux sous-échantillons : un échantillon d'estimation et un échantillon d'évaluation. Cet exercice illustre comment les pondérations du portefeuille peuvent varier selon la fenêtre d'estimation choisie.

Pour rappel, la fonction window() prend les arguments x, start et end. Les valeurs de start et end doivent être au format "YYYY-MM-DD".

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 l'échantillon returns_estim en filtrant returns, du 1er janvier 1991 au 31 décembre 2003.
Créez l'échantillon returns_eval en filtrant returns, du premier jour de 2004 au dernier jour de 2015.
Créez un vecteur de pondérations maximales de 10 %, dont la longueur correspond au nombre de colonnes de returns, nommé max_weights.
Créez un portefeuille avec l'échantillon d'estimation nommé pf_estim, où la pondération maximale (reshigh) est définie à max_weights.
Créez un portefeuille avec l'échantillon d'évaluation nommé pf_eval, où la pondération maximale (reshigh) est définie à max_weights.
Créez un nuage de points des pondérations du portefeuille d'évaluation en fonction de celles du portefeuille d'estimation (vous pouvez utiliser $pw). Si les pondérations sont identiques, elles devraient se situer sur la droite à 45 degrés.

Exercice interactif pratique

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

# Create returns_estim 
returns_estim <- window(___, start = "YYYY-MM-DD", end = "YYYY-MM-DD")

# Create returns_eval


# Create vector of max weights
max_weights <- rep(___, ncol(___))

# Create portfolio with estimation sample 
pf_estim <- portfolio.optim(___, reshigh = ___)

# Create portfolio with evaluation sample


# Create a scatter plot with evaluation portfolio weights on the vertical axis
plot(___, ___)
abline(a = 0, b = 1, lty = 3)

Modifier et exécuter le code