use R or R studio to solve

1. (10 points) Suppose a car dealer promotes two options for the purchase of a new car cost $20,000. The first option is for the customer to pay up front and receive a $1000 rebate. The second option is "financing where the customer makes 20 monthly payments of $1000 beginning in one month's time. Because of option 1, the effective price of the car is really $19,000, so the dealer really is charging some interest rate i for option 2. Use a while() loop to iteratively calculate the interest rate which satisfies the fixed-point equation - (1 (1 + iola) -20) inew = 4 19 Use a starting guess of io = 0.006. Stop the calculation when two successive values of the interest rate are less than 0.000001 apart. Print this interest rate at the end