modified R script and update