library(ompr)
model <- MIPModel() %>%
add_variable(x) %>% add_variable(y) %>% add_variable(z) %>%
add_constraint(-5 <= x) %>% add_constraint(x <= 4) %>%
add_constraint(-5 <= y) %>% add_constraint(y <= 3 - x) %>%
add_constraint(-10 <= z) %>% add_constraint(z <= 6 - x - y)
getAb(model)
Run the code above in your browser using DataLab