My collection of R-scripts