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

Vizualizace vztahu mezi cenou a výnosem

Mezi cenou dluhopisu a jeho výnosem sice existuje inverzní vztah, ale není lineární. To znamená, že změna ceny v závislosti na změně výnosu může být výrazně odlišná podle toho, zda výnos roste nebo klesá. K tomuto důležitému konceptu se vrátíme ve třetí kapitole, kde si vysvětlíme konvexitu a proč je nutná korekce zohledňující zakřivený vztah mezi cenou dluhopisu a jeho výnosem. Prozatím si jen zapamatuj, že tento inverzní vztah je nelineární.

V tomto cvičení budeme pracovat s dluhopisem s nominální hodnotou 100 USD, kupónovou sazbou 10 % a dobou do splatnosti 20 let. Všimni si, že jde o jiný dluhopis, než se kterým jsi pracoval/a doposud! Tvým úkolem je ocenit tento dluhopis při různých úrovních výnosu pomocí funkce bondprc(), která je dostupná v tvém pracovním prostředí.

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

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

Zobrazit kurz

Pokyny k cvičení

  • Vytvoř vektor prc_yld od 2 % (0.02) do 40 % (0.40) s krokem 1 % (0.01) pomocí funkce seq().
  • Pomocí data.frame() převeď prc_yld na datový rámec.
  • Použij předpřipravenou smyčku for s funkcí bondprc() k výpočtu ceny dluhopisu při různých úrovních výnosu v prc_yld. Snaž se pochopit, jak tato smyčka funguje.
  • Objekt prc_yld nyní obsahuje sloupec pro výnos (prc_yld) a sloupec pro cenu (price). Vykresli tento objekt pomocí předpřipraveného kódu a prohlédni si vztah mezi cenou a výnosem do splatnosti (YTM).

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

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

# Generate prc_yld
prc_yld <- seq(___, ___, ___)

# Convert prc_yld to data frame
prc_yld <- data.frame(___)

# Calculate bond price given different yields
for (i in 1:nrow(prc_yld)) {
     prc_yld$price[i] <- bondprc(100, 0.10, 20, prc_yld$prc_yld[i])  
}

# Plot P/YTM relationship
plot(___,
     type = "l",
     col = "blue",
     main = "Price/YTM Relationship")
Upravit a spustit kód