R/lt2gt.R

In TSSP: Two-Stage Stochastic Programs

##
## lt2gt Method for objects of class "CLPD"
##
setMethod(f = "lt2gt", signature(object = "CLPD"), definition = function(object){
  dir <- getDir(object)
  idx <- which(dir == "<=")
  if(length(idx) > 0){
    object@A[idx, ] <- -1.0 * object@A[idx, ]
    object@dir[idx] <- ">="
    object@rhs[idx] <- -1.0 * object@rhs[idx]
  }
  if(validObject(object)){
    return(object)
  } else {
    stop("\nConverting lower-than to greater-than constraints failed.\n")
  }
})