Question

[R code]
A <- c(158, 149, 160, 155, 164, 138, 163, 159, 165, 145, 150, 161, 132, 155, 146, 159)
B <- c(164, 158, 163, 160, 172, 147, 167, 169, 173, 147, 156, 164, 133, 161, 154, 170)
Using ‘wilcox.test’ function. A is the data showing blood pressure before jogging and B is the data showing blood pressure after jogging. At a significance level of 0.05, After jogging, test if you can say blood pressure has increased by more than 5. Thank you :)

Answer 1

> A <- c(158, 149, 160, 155, 164, 138, 163, 159, 165, 145, 150, 161, 132, 155, 146, 159)
> B <- c(164, 158, 163, 160, 172, 147, 167, 169, 173, 147, 156, 164, 133, 161, 154, 170)

> wilcox.test(A,B, paired=TRUE,alt='l')

Wilcoxon signed rank test with continuity correction data: A and B V = 0, p-value = 0.000236 alternative hypothesis: true location shift is less than 0 Warning message: In wilcox.test.default(A, B, paired = TRUE, alt = "l") : cannot compute exact p-value with ties

   At a significance level of 0.05, p-value= 0.000236< 0.05, we may reject Ho and conclude that there is statistical evidence that after jogging blood pressure has increased by more than 5