# NOT RUN {
# Un objeto loca.p no ponderado
o <- new("loca.p", x = c(-1, 1, 1, -1), y = c(-1, -1, 1, 1))
# Calcula la funcion objetivo en el punto c(3, 4)
zsum(o, 3, 4)
# Resuelve el problema de localizacion
zsummin(o)
# Curvas de nivel
contour(o)
# Ejecuta una demo del paquete
demo(orloca)
# }
Run the code above in your browser using DataLab