3.1, 3.3, 3.4, 3.7, 3.9 (you will need to create an indicator for card), 3.13
## Data for 3.4 credit <- read.table("http://www.stat.ufl.edu/~aa/cat/data/Credit.dat", header = TRUE)
7.1, 7.16, 7.17