Čistá současná hodnota investic
Joe, majitel Cynthiina oblíbeného restaurantu, tě žádá o radu. Chce si koupit novou pizzovou pec v hodnotě 10 000 EUR a zajímá ho, jestli by taková investice byla výhodná – očekává totiž, že mu přinese dodatečné peněžní toky.
Tvým úkolem je vypočítat čistou současnou hodnotu (NPV) Joeovy investice. NPV je součet současných hodnot budoucích peněžních toků (modře), které investice generuje, snížený o počáteční náklady ve výši 10 000 (červeně) v čase 0.
Jaká je tvoje rada pro Joea? Předpokládej, že úrokové sazby jsou konstantní a rovnají se 5 %.
Toto cvičení je součástí kurzu
Oceňování produktů životního pojištění v R
Pokyny k cvičení
- Vytvoř vektor
cash_flowss kladnými peněžními toky spojenými s investicí. Vektor začíná nulou. - Definuj
discount_factorsjako 1 plus úroková sazba 5 % umocněná na mínus vektor od 0 do 5. - Vypočítej
net_present_valueinvestice jako současnou hodnotu budoucích zisků minus počáteční náklady 10 000. Dosáhne Joe celkového zisku, nebo ztráty?
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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