Wartość bieżąca netto inwestycji
Joe, właściciel ulubionej restauracji Cynthii, prosi o poradę. Chce kupić nowy piec do pizzy wartości 10 000 EUR. Spodziewa się, że ta inwestycja przyniesie dodatkowe przepływy pieniężne, ale zastanawia się, czy zakup pieca będzie opłacalny.
Oblicz wartość bieżącą netto (NPV) inwestycji Joego. NPV to suma wartości bieżących przyszłych przepływów pieniężnych (zaznaczonych na niebiesko) generowanych przez inwestycję, pomniejszona o jej początkowy koszt wynoszący 10 000 (zaznaczony na czerwono) w chwili 0.
Jaką radę dasz Joemu? Przyjmij, że stopy procentowe są stałe i wynoszą 5%.
To ćwiczenie jest częścią kursu
Wycena produktów ubezpieczeń na życie w R
Instrukcje do ćwiczenia
- Utwórz wektor
cash_flowszawierający dodatnie przepływy pieniężne związane z inwestycją. Wektor zaczyna się od zera. - Zdefiniuj
discount_factorsjako 1 plus stopa procentowa 5% podniesiona do potęgi będącej negacją wektora od 0 do 5. - Oblicz
net_present_valueinwestycji jako wartość bieżącą przyszłych zysków pomniejszoną o początkowy koszt wynoszący 10 000. Czy Joe osiągnie zysk, czy poniesie stratę?
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# Define the cash flows
cash_flows <- c(0, ___(___, ___), ___(___, ___))
# Define the discount factors
discount_factors <- (1 + ___) ^ - (___)
# Calculate the net present value
net_present_value <- ___(___ * ___) - ___
net_present_value