added my own code to RStudio script