Create Rfunction.R