Update Main.R

Corrección de algunos errores en la función objective()