R/write_constraints_3_all.R

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

#'\code{write_constraints_3_all}
#'
#'This code writes the list of constraints (3) of the ILP problem for all the 
#'conditions.
#'
#'Enio Gjerga, 2020

write_constraints_3_all <- function(variables=variables) {

  ## ======================================= ##
  ## ====== Load write_constraints_3.R ===== ##
  ## ======================================= ##

  write_constraints_3 <- function(variables=variables) {

    constraints3 <- paste0(
      variables$variables[variables$idxEdgesUp], 
      " + ", 
      variables$variables[variables$idxEdgesDown], 
      " <= 1")

    return(constraints3)

  }

  constraints3 <- c()

  for(i in 1:length(variables)){

    var <- variables[[i]]

    constraints3 <- c(constraints3, write_constraints_3(variables = var))

  }

  return(constraints3)

}