updated to call the right R script