# CS代考 Workshop 1: Conjugate Bayesian inference in R – cscodehelp代写

Workshop 1: Conjugate Bayesian inference in R
1. Analysis of binomial data: drug. Consider the example from lecture 1 where a new drug is be- ing considered for relief of chronic pain, with the success rate ¦È being the proportion of patients experiencing pain relief. In the past, drugs of this type have shown variable pain relief rates, with a mean of 40% and a standard deviation of 10%. We have seen that these could be translated into a Beta(9.2, 13.8) distribution. This drug had 15 successes out of 20 patients.
(i) Calculate the posterior distribution of the success rate ¦È.
(ii) What is the posterior mean and 95% highest posterior density (HPD) interval for the response rate?

Hint: For computing the HPD interval you can use, for instance, the function hpd from the R package TeachingDemos.
(iii) Compute a symmetric 95% credible interval. Compare this to the 95% HPD interval.
(iv) What is the probability that the true success rate is greater than 0.6?
(v) How is this value affected if a uniform prior is adopted? And how is it affected in the case that Jeffreys¡¯ prior is adopted?
(vi) Using the original Beta(9.2, 13.8) prior, suppose 40 more patients were entered into the study. What is the chance that at least 25 of them experience pain relief? Hint: You might want to use the beta and gamma functions implemented in R.
(vii) We might ask whether the observed data is ¡®compatible¡¯ with the expressed prior distribution. One method is to calculate the predictive probability of observing such an extreme number of successes under this prior: this is a standard p-value but where the null hypothesis is a distri- bution. Use the predictive distribution for 20 future patients to find the probability of getting at least 15 successes (i.e., at least 15 patients experiencing pain relief). Do you think this suggests the data are incompatible with the prior?
(viii) Check for prior/data conflict by making the prior/likelihood/posterior plot.
2. Suppose that most drugs (95%) are assumed to come from the stated Beta(9.2, 13.8) prior, but there is a small chance that the drug might be a ¡®winner¡¯. ¡®Winners¡¯ are assumed to have a prior distribution with mean 0.8 and standard deviation 0.1.
(i) What Beta distribution might represent the ¡®winners¡¯ prior? Remember that a Beta(a, b) distri- bution has mean a/(a + b) and variance ab/{(a + b)2(a + b + 1)}.
(ii) Plot the mixture prior.
(iii) What is now the chance that the response rate is greater than 0.6? Hint: You might start by showing that if

Here y denotes the number of successes.
(iv) For this mixture prior, repeat the prior/data compatibility test performed previously. Are the data more compatible with this mixture prior?
(v) Check for prior/data conflict by making the prior/likelihood/posterior plot.
3. Analysis of normal data: systolic blood pressure. Suppose we are interested in the long-term systolic blood pressure (SBP), in mmHg, of a particular 60-year old female. We take two independent readings of her SBP 6 weeks apart, giving values of 127 and 133. Each measurement is assumed to be normally distributed around her underlying long-term SBP ¦È with standard deviation ¦Ò = 5.
We have additional information: a population survey revealed females aged 60 had a mean long-term SBP of 120 with standard deviation 10.
(i) Use the information from the population survey to specify a normal prior for the woman¡¯s mean SBP.
(ii) Whatistheposteriormeanand95%symmetriccredibleintervalforthewoman¡¯sSBP?Co mpare this with the maximum likelihood estimate and 95% confidence interval.
(iii) Suppose 2 other readings were taken, both of 130. What would be the 95% credible interval now?