Rename R file to state its function clearly