2. Generate a Poisson P(X) sample by R codes set . seed (2022) n > 0 is the unknown parameter, use the Jeffreys prior to answer the following questions. (a) Find the 90% ET and HPD credible intervals of A, respectively. What are the actual size of the HPD interval, the density value at the cut points, and the probabilities at two tails? (b) Find the point estimates of A by the methods of MMSE, MAPE and MED, re- spectively