Suppose you are interested in the effect of an experimental drug on blood pressure. Blood pressures in mmHg are measured before and after treatment from a random sample of 15 participants. The following data result:
Pre: 130, 103, 116, 113, 124, 122, 128, 124, 123, 108, 134, 108, 111, 129, 134
Post: 134, 106, 110, 115, 122, 126, 130, 118, 125, 110, 138, 111, 115, 125, 130
To save time, you can copy the following data into R:
x1 <- c(130,103,116,113,124,122,128,124,123,108,134,108,111,129,134) # for Pre
x2 <- c(134,106,110,115,122,126,130,118,125,110,138,111,115,125,130) # for Post
a) (1 mark) Find a 95% confidence interval for the true mean of the difference in blood pressures (Pre - Post). Include your command and output.
b) (1 mark) Give the command and output to test if there is any effect of the experimental drug on blood pressure.
c) (1 mark) What is the observed value of the test statistic?
d) (1 mark) What is the distribution of the test statistic (with parameter if any) under H0?
e) (1 mark) What is the p-value for our test?