R/all_constraints_wLoop.R

In CARNIVAL: A CAusal Reasoning tool for Network Identification (from gene expression data) using Integer VALue programming

## The list of all LP constraints with removed failed-to-write constraints that 
## returns NaN
## 
## Enio Gjerga, 2020

all_constraints_wLoop <- function(c0=c0, c1=c1, c2=c2, c3=c3, c4=c4, c5=c5, 
                                  c6=c6, c7=c7, c8=c8, c9=c9){
  
  allConst <- c(c0, c1, c2, c3, c4, c5, c6, c7, c8, c9)
  
  allConstraints <- paste0("c", seq_len(length(allConst)), 
                           ":\t", allConst, "\t \t")
  
  if(length(grep(pattern = "NaN", x = allConstraints)) > 0){
    return(allConstraints[-grep(pattern = "NaN", x = allConstraints)])
  }
  else{
    return(allConstraints)
  }
  
}