R script done