update R script added