# R-program for Supplementary Exercise 9.20 of IPS7e

chd <- read.csv("c:/data.avc/teaching/VHM801/x2015/09P/ex09_020.csv")

chd.xtab <- xtabs(Survivors ~ Status + Ownership, data=chd); chd.xtab
chd.chi2 <- chisq.test(chd.xtab); chd.chi2
chd.ft <- fisher.test(chd.xtab); chd.ft