R-Code for Data Science Class