1. Učit se
    2. /
  2. Kurzy
    3. /
  3. Oceňování a analýza dluhopisů v R
Connected

cvičení

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.

Pokyny

100 XP
  • 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.