(R programming) P2. According to a report by the Consumer Federation of America, National Credit Union Foundation, and the Credit Union National Association, households with negative assets carried an average of $15,528 in debt in 2002 (CBS.MarketWatch.com, May 14, 2002). Assume that this mean was based on a random sample of 400 households and that the standard deviation of debts for households in this sample was $4200. Make a 99% confidence interval for the 2002 mean debt for all such households. (Provide the script below)