Vykreslení výnosů amerických státních dluhopisů
Protože jsou podnikové dluhopisy rizikovější než americké státní dluhopisy, bezriziková sazba tvoří základní úroveň výnosu, který od nich investoři očekávají. Výnosy amerických státních dluhopisů však nejsou konstantní a mohou se v čase výrazně měnit. Přesvědčíš se o tom sám při pohledu na jejich vývoj za delší období.
V tomto cvičení použiješ balíček quantmod() k získání a vykreslení dat o výnosech 10letých amerických státních dluhopisů z databáze Federálního rezervního systému (FRED) za období od ledna 2006 do září 2016.
Příkaz getSymbols() z balíčku quantmod umožňuje přístup do databáze FRED – stačí zadat argument Symbols (v tomto případě "DGS10" pro 10leté americké státní dluhopisy). Nezapomeň také nastavit argument src na hodnotu "FRED" a auto.assign na FALSE.
Toto cvičení je součástí kurzu
Oceňování a analýza dluhopisů v R
Pokyny k cvičení
- Načti balíček
quantmod. - Pomocí funkce
getSymbols()z balíčkuquantmodzískej data proDGS10z databázeFRED. Nezapomeň nastavit argumentauto.assignnaFALSE. Data ulož do proměnnét10yr. - Vyfiltruj data
t10yrna období od ledna 2006 do září 2016 pomocí formátudata["date1/date2"]. - Vykresli data
t10yrpomocí připraveného kódu.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Load quantmod package
# Obtain Treasury yield data
t10yr <- getSymbols(Symbols = "___", src = "___", auto.assign = ___)
# Subset data
t10yr <-
# Plot yields
plot(x = index(t10yr),
y = t10yr$DGS10,
xlab = "Date",
ylab = "Yield (%)",
type = "l",
col = "red",
main = "10-Year US Treasury Yields")