Adding a test R script