* do-file for Supplementary exercise 9.20 of IPS7e
version 18 /* works also with versions 13-17 */

import delimited "R:\Chapter 9\ex09_020.csv"
rename survivors patients
tabulate status ownership [fweight=patients ], cchi2 chi2 column exact expected row