Create tester.R

A sample R script.