Write some code to randomly sample 500 values from a normal distribution with a mean of 5 and a standard deviation of 1 using the rnorm() function. Set your seed to 1 so that your random numbers match mine. Using R, calculate the point estimate of mu for the simulated scores. Round your answer to two decimal places. (To be sure that you set your seed correctly, run the set.seed() and the rnorm() function at the same time. If you don't set your seed correctly, your answer to this question and the following two questions will be incorrect.) Using R, calculate a 98% confidence interval for mu using the point estimate you obtained previously. (Hint: you know sigma because you simulated the set of scores.) What is the value of the lower bound rounded to two decimal places? Using R, calculate a 92% confidence interval for mu using the point estimate you obtained previously. (Hint: you know sigma because you simulated the set of scores.) What is the value of the upper bound rounded to two decimal places