Added my code to R file