Create introductory R script
Add introductory comments