R/write_constraints_1_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_1_all}
#'
#' This code writes the list of constraints (1) of the ILP problem for all the 
#' conditions.
#' 
#' Enio Gjerga

write_constraints_1_all <- function(variables=variables){

  constraints1 <- c()

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

    var <- variables[[i]]

    constraints1 <- c(constraints1, write_constraints_1(variables = var, 
                                                        conditionIDX = i))

  }

  return(constraints1)

}