Added cur() to Rprofile
Updated Rprofile