Update Rfunction.R