Write .Rprofile to correct location