rstudio code assignment