Update test.amortization.function.r