Added example to SparkR.R