R/get.kind.R

In lpSolveAPI: R Interface to 'lp_solve' Version 5.5.2.0

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

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

  ans <- rep("standard", length(columns))

  idx <- .Call(RlpSolve_is_semicont, lprec, as.integer(columns))
  ans[idx] <- "semi-continuous"

  idx <- .Call(RlpSolve_is_SOS_var, lprec, as.integer(columns))
  ans[idx] <- "SOS"

  ans
}