Slide of  Chapter 4
R script of Chapter 2
R script of Chapter 3
R script of Chapter 4