Update R code - Part #2

Final Code that passed the code checker.