Added a test r script