Added some comments and named the r chunks