R script, some explanation text files added.