* do-file for Supplementary Exercise 7.68 of IPS7e
version 17 /* works also with versions 13-16 */

import delimited "R:\Chapter 7\ex07_058.csv"
signtest change=0
* compute P-value for test directly in B(32,0.5):
display binomialtail(32,28,0.5)

* extra: confidence interval for median:
centile change, centile(50)