# Un objeto loca.p no ponderado
loca <- new("loca.p", x = c(-1, 1, 1, -1), y = c(-1, -1, 1, 1))
# Calcula el mínimo
sol<-zsummin(loca)
# Muestra los resultados
sol
# Evaluación de la función objetivo en el punto solución
zsum(loca, sol[1], sol[2])
Run the code above in your browser using DataLab