A collection of various R script that I am working with