Create optimiFunctions.R