Minor cleaning of R script to remove some more lines of code.