adds x functino to .Rprofile