R file with my code added