R/set.constr.type.R

In lpSolveAPI: R Interface to 'lp_solve' Version 5.5.2.0

set.constr.type <- function(lprec, types, constraints = 1:m)
{
  m <- dim(lprec)[1]

  if(length(types) != length(constraints))
    stop(sQuote("types"), " and ", sQuote("constraints"),
         " are not the same length")

  if(is.character(types))
    types <- match(types, c("<=", ">=", "="), nomatch = 0)

  .Call(RlpSolve_set_constr_type, lprec, as.integer(constraints),
        as.integer(types))

  invisible()
}