My useful R script for data analysis work in R langauge