Added example of function usage to R Script, and added screen capture of output to repository