added R file and an edited readMe.MD file