Začněte nyníZačněte zdarma

Ocenění dluhopisu

V první kapitole jsi ocenil/a dluhopis postupným přístupem krok za krokem. V tomto cvičení oceníš dluhopis s nominální hodnotou 100 USD, kuponovou sazbou 3 % a dobou do splatnosti 8 let. Rozložíš peněžní toky dluhopisu a vypočítáš současnou hodnotu každého z nich pomocí výnosu Aaa, který jsi získal/a v předchozím cvičení.

Objekt aaa_yield je do tvého pracovního prostředí přednahráno s hodnotou 0.0341.

Toto cvičení je součástí kurzu

Oceňování a analýza dluhopisů v R

Zobrazit kurz

Pokyny k cvičení

  • Vytvoř objekt peněžních toků (cf) obsahující peněžní toky dluhopisu.
  • Pomocí data.frame() převeď cf na datový rámec, aby bylo možné přidat další proměnné potřebné pro analýzu.
  • Přidej časový ukazatel (cf$t) reprezentující roky 1 až 8 pomocí příkazu seq().
  • Vypočítej diskontní faktor (cf$pv_factor) na základě výnosu Moody's Aaa (aaa_yield) a časového ukazatele (cf$t).
  • Vypočítej současnou hodnotu každého peněžního toku (cf$pv) jako součin cf$cf a diskontního faktoru (cf$pv_factor).
  • Nakonec vypočítej cenu dluhopisu jako sum() současných hodnot jednotlivých peněžních toků.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# Layout the bond's cash flows
cf <- c(___, ___, ___, ___, ___, ___, ___, ___)

# Convert to data.frame
cf <-

# Add time indicator
cf$t <- seq(___, ___, ___)

# Calculate PV factor
cf$pv_factor <- 1 / (1 + ___)^___

# Calculate PV
cf$pv <-

# Price bond
sum(___)
Upravit a spustit kód