changes in R-code

working directory is removed