R code for data science edu