Added some initial R-scripts