R Coding 24.6 Insurance risk This is a simplified version of two common problems faced by insurance com- panies: calculating the probability that they go bust and estimating how much money they will make. Suppose that an insurance company has current assets of $1,000,000. They have n = 1,000 customers who each pay an annual premium of $5,500, paid at the start of each year. Based on previous experience, it is estimated that the probability of a customer making a claim is p = 0.1 per year, independently of previous claims and other customers. The size X of a claim varies, and is believed to have the following density, with a = 3 and = 100,000, aa for x > 0, f(x) (x + B)a+1 0 for x 0, Z(t) 0 if Z(t - 1) = 0. Note that if Z(t) falls below 0 then it stays there. That is, if the company then it stops trading. { goes bu Write a function to simulate the assets of the company over five years. Using your function, estimate: 1. The probability that the company goes bust, and 2. The expected assets at the end of five years