My Code

Replaced the supplied R file with my code.