Finished all .R code before submitted