Added Rprofile and init