# R-program for Supplementary Exercises 9.36 and 9.38 of IPS7e

stud <- read.csv("h:/vhm/vhm801/Datasets/csv/Chapter 9/ex09_036.csv")
stud.xtab <- xtabs(count ~ status + gender, data=stud); stud.xtab

# 9.36
# (b)
margin.table(stud.xtab,2)
prop.table(margin.table(stud.xtab,2))

# (c)
margin.table(stud.xtab,1)
prop.table(margin.table(stud.xtab,1))

# 9.38
prop.table(stud.xtab, 2)