R/get.bounds.R

In lpSolveAPI: R Interface to 'lp_solve' Version 5.5.2.0

get.bounds <- function(lprec, columns = 1:n) {
  n <- dim(lprec)[2]

  if (n < 1) {
    columns <- integer(0)
  }

  lower <- .Call(RlpSolve_get_lowbo, lprec, as.integer(columns))
  upper <- .Call(RlpSolve_get_upbo, lprec, as.integer(columns))

  list(lower = lower, upper = upper)
}