Update Rfunctions.R