Create Amortization_function.R