now using Rscript script