npv(
init.cost = -375, C = 50, cf.freq = .5, TV = 250, T2M = 2,
disc.factors = RTL::usSwapCurves, BreakEven = FALSE, BE.yield = .0399
)$npv
npv(
init.cost = -375, C = 50, cf.freq = .5, TV = 250, T2M = 2,
disc.factors = RTL::usSwapCurves, BreakEven = FALSE, BE.yield = .0399
)$df
Run the code above in your browser using DataLab