LoslegenKostenlos starten

Wer war’s?

Im vorherigen Video hast du den Unterschied zwischen einem Kapitalallokationsbudget und einem Risikobudget gesehen. In dieser Übung erstellst du ein Risikobudget und findest heraus, wie groß der prozentuale Risikobeitrag jedes Assets zur gesamten Portfoliovolatilität ist.

Für diese letzte Übung berechnest du die Risikobeiträge für ein Portfolio, das wieder zu 40 % in Aktien, 40 % in Anleihen, 10 % in Immobilien und 10 % in Rohstoffe investiert ist. Die Funktion StdDev() spielt dabei eine wichtige Rolle. Die Funktion StdDev() erzeugt eine Liste mit der Standardabweichung der Assets ($StdDev), ihrem Risikobeitrag ($contribution) und ihrem prozentualen Risikobeitrag ($pct_contrib_StdDev).

Für diese Berechnung verwendest du drei Argumente in der Funktion StdDev(). Das erste ist R, ein Vektor, eine Matrix, ein Data Frame, eine Zeitreihe oder ein zoo-Objekt mit Renditen. Das zweite ist portfolio_method, das du auf component setzt, und das dritte ist weights.

Das Objekt returns ist in deinem Workspace geladen.

Diese Übung ist Teil des Kurses

<Kurs>Einführung in die Portfolioanalyse in R</Kurs>
Kurs ansehen

Übungsanweisungen

  • Erstelle einen Vektor mit den Portfoliogewichten namens weights. Denk daran: Die Reihenfolge ist wichtig!
  • Berechne dein Volatilitätsbudget, indem du StdDev() auf die Renditereihe returns anwendest. Setze portfolio_method = "component" und weights gleich dem erstellten Vektor weights. Nenne das Ergebnis vol_budget.
  • Kombiniere die Gewichte und die prozentualen Risikobeiträge in einer Tabelle namens weights_percrisk mit cbind().
  • Drucke die Tabelle und beobachte, wie stark sich die prozentualen Risikobeiträge von den Portfoliogewichten unterscheiden.

Interaktive praktische Übung

Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.

# 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
Code bearbeiten und ausführen