R/get.basis.R

In lpSolveAPI: R Interface to 'lp_solve' Version 5.5.2.0

Defines functions get.basis

Documented in get.basis

get.basis <- function(lprec, nonbasic = FALSE)
{
  basis <- .Call(RlpSolve_get_basis, lprec, as.logical(nonbasic))

  if(basis[1] == 1)
    basis <- basis[-1]
  else
    basis <- NULL

  basis
}

Try the lpSolveAPI package in your browser