Added Chapter 4 R Lab