Intro to R script file added and debugged