"A fixed-rate mortgage (FRM), often referred to as a "vanilla wafer" mortgage loan, is a fully amortizing mortgage loan where the interest rate on the note remains the same through the term of the loan, as opposed to loans where the interest rate may adjust or "float". As a result, payment amounts and the duration of the loan are fixed and the person who is responsible for paying back the loan benefits from a consistent, single payment and the ability to plan a budget based on this fixed cost". Based on the above definition, the monthly mortgage payment for a FRM depends on the amount of loan (L), the fixed annual interest rate (r), and the number of borrowing period in years (n). Please write an R function to compute the monthly mortgage payment: mort.payment = function(L, r, n){The body of code} The following two vectors "inflation" & "score" shows the expected inflation rate and the credit score for James for the next five years. Suppose the fixed mortgage rate = 5% + inflation expectation (IE) - credit scoring (Score)*0.01%. When (which year) should James take a loan out to minimize his nominal monthly loan payment? How large is the minimum monthly loan payment? IE = c(0.02, 0.01, 0.03, 0.02, 0) Score = c(70, 50, 80, 100, 80)