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

Diskontování peněžních toků dluhopisu se známým výnosem

Teď, když máme peněžní toky dluhopisu připravené, můžeme přistoupit k výpočtu současné hodnoty každého z nich a ocenit dluhopis. Připomeňme si, že hodnota dluhopisu je součtem současných hodnot jeho peněžních toků.

V tomto cvičení vypočítáš příslušný faktor současné hodnoty, pv_factor, pro každý peněžní tok, abychom mohli zjistit současnou hodnotu pv každého toku. Následně sečteš hodnoty pv a dostaneš výslednou hodnotu dluhopisu.

Měj na paměti, že tento dluhopis má výnos 6 %, který slouží jako diskontní sazba. Datový rámec cf z předchozího cvičení máš k dispozici ve svém pracovním prostoru.

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

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

Zobrazit kurz

Pokyny k cvičení

  • Vytvoř nový sloupec t v datovém rámci cf, který bude označovat rok, v němž je peněžní tok přijat. Pro naše účely odpovídá rok názvu řádku v datovém rámci (1, 2, 3 atd.). Sloupec t tedy můžeš pojmenovat jednoduše pomocí rownames(). Použij as.numeric(), aby byly hodnoty t číselného typu.
  • Vytvoř další nový sloupec pv_factor v objektu cf pro uložení faktoru současné hodnoty pro každý rok. Faktor současné hodnoty pro daný rok se vypočítá jako 1 děleno hodnotou (1 + diskontní sazba, v tomto případě 6 %, tj. 0.06) umocněnou na hodnotu časové proměnné (t).
  • Vytvoř sloupec pv v cf pro uložení současné hodnoty peněžního toku každého roku. Současná hodnota se vypočítá jako peněžní tok (cf) vynásobený faktorem současné hodnoty daného roku (pv_factor).
  • Nakonec použij funkci sum(), která sečte hodnoty ve sloupci pv a vrátí výslednou hodnotu dluhopisu.

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

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

# Add column t to cf
cf$t <- as.numeric(___(___))

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

# Calculate pv
cf$pv <- ___ * ___

# Calculate the bond price
sum(___$___)
Upravit a spustit kód