Update amortization_function.R