added basic R script for demo