Update R Script

adding time, and removing non useable scripts.