initial changes to .R file