Demo script

Added the R script