Update and rename Amortization_function.R to amortization_function.R