# NOT RUN {
if (has_4ti2()) {
mat <- rbind(
c( 1, -1),
c(-3, 1),
c( 1, 1)
)
rel <- c("<", "<", ">")
rhs <- c(2, 1, 1)
sign <- c(0, 1)
zsolve(mat, rel, rhs, sign)
zsolve(mat, rel, rhs, sign, quiet = FALSE)
zsolve(mat, rel, rhs, sign, shell = TRUE)
zsolve(mat, rel, rhs, sign, p = "gmp", quiet = FALSE)
}
# }
Run the code above in your browser using DataLab