R/get.type.R

In lpSolveAPI: R Interface to 'lp_solve' Version 5.5.2.0

get.type <- function(lprec, columns = 1:n, as.char = TRUE) {
  n <- dim(lprec)[2]

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

  ind <- .Call(RlpSolve_is_int, lprec, as.integer(columns))

  if (as.char) {
    types <- rep("real", length(columns))
    types[ind] <- "integer"
  } else {
    types <- ind
  }

  types
}