R script of Chapter 2
Slide of  Chapter 2