fixed 2cd Rscript