Clean up R script
Cleanup
New fomatting line.