Create minimize.R