finished the R script
finished the R script