Dyskontowanie przepływów pieniężnych obligacji przy znanej stopie zwrotu
Po rozpisaniu przepływów pieniężnych obligacji możemy przejść do obliczania wartości bieżącej każdego z nich, a następnie wycenić obligację. Pamiętaj, że wartość obligacji to suma wartości bieżących wszystkich jej przepływów pieniężnych.
W tym ćwiczeniu obliczysz odpowiedni czynnik wartości bieżącej, pv_factor, dla każdego przepływu pieniężnego, co pozwoli wyliczyć wartość bieżącą pv każdego z nich. Następnie zsumuj wartości pv, aby uzyskać wycenę obligacji.
Przypominamy, że obligacja ma stopę zwrotu wynoszącą 6%, która pełni rolę stopy dyskontowej. Ramka danych cf utworzona w poprzednim ćwiczeniu jest dostępna w twoim środowisku roboczym.
To ćwiczenie jest częścią kursu
Wycena i analiza obligacji w R
Instrukcje do ćwiczenia
- Utwórz nową kolumnę
tw ramce danychcf, która wskazuje rok otrzymania danego przepływu pieniężnego. Na potrzeby tego zadania rok odpowiada nazwie wiersza w ramce danych (1,2,3itd.) – możesz więc po prostu użyć funkcjirownames(). Skorzystaj zas.numeric(), aby upewnić się, że wartości wtsą liczbowe. - Utwórz kolejną nową kolumnę
pv_factorw obiekciecf, która będzie przechowywać czynnik wartości bieżącej dla każdego roku. Czynnik ten oblicza się jako 1 podzielone przez (1 + stopa zwrotu) – w tym przypadku 6%, czyli0.06– podniesione do potęgi zmiennej czasowej (t). - Utwórz kolumnę
pvwcf, która będzie przechowywać wartość bieżącą przepływu pieniężnego dla każdego roku. Wartość bieżącą oblicza się jako przepływ pieniężny (cf) pomnożony przez czynnik wartości bieżącej danego roku (pv_factor). - Na koniec użyj funkcji
sum(), aby zsumować wartości w kolumniepvi uzyskać wycenę obligacji.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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(___$___)