R script of Chapter 3
Slide of  Chapter 3