Create optimizor.R