Chapter 3

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)

Chapter 7

7.1, 7.16, 7.17