R/get.basis.q

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

Any scripts or data that you put into this service are public.

lpSolveAPI documentation built on May 2, 2019, 6:50 p.m.