added my own code to RStudio script
Added code in stub in RStudio