adding the modified R file