Adding a test R file