Added the completed R scripts.