Added a simple R script which prints out stats.