Code in R, I am using Rstudio

1. A student is taking a statistics quiz (with one multiple choice question). For any statistics quiz of this kind, the student has 60% probability of completely knowing how to do the question, and 40% probability of not knowing how to do the question. On the questions that they know completely how to do, they will get the right answer 99% of the time; on the questions they do not know how to do, they will get the right answer 25% of the time. We observed that the student got the question correct. What is the probability that the student completely know how to do the question, given this observation (that they got the question correct)? Let us conduct a simulation to estimate this probability. Some notes that might be helpful: - Select a large number B, as the number of simulation repeats, for example 5e6. This helps to mitigate influence of unusual results. Note that the simulation might take some time. - If statements will be very helpful. - The simulation result might not be exactly the same as the correct result computed via Bayes Theorem, but should be very close. Grading Method The grading of this assignment will be based on: Correctness. Tasks for this Assignment (a) (6 points) Conduct appropriate simulation to answer the proposed question above. (b) (2 points) Clearly report the final probability value (rounded to 4 decimal points). (c) (2 points) Correctly labeled the locations of all the previous parts of this question on Gradescope (you do not have to label the current part). Also, report is in the required format, and within the required page limit (see the beginning of this assignment)