Updated comments in the .R script to document the pproach used.