Create somefunction.R