added .Rprofile function