R/append_bounds.R

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

#'\code{append_bounds}
#'
#' Appending the bounds for each condition
#' 
#' Enio Gjerga, 2020

append_bounds = function(bounds = bounds, variables = variables){
  
  for(ii in 1:length(variables$`Reaction Variables`$Explanation)){
    
    ss <- strsplit(x = 
                     strsplit(
                       x = variables$`Reaction Variables`$Explanation[ii], 
                       split = " ", fixed = TRUE)[[1]][2], split = "=", 
                   fixed = TRUE)[[1]][1]
    tt <- strsplit(x = 
                     strsplit(
                       x = variables$`Reaction Variables`$Explanation[ii], 
                       split = " ", fixed = TRUE)[[1]][2], 
                   split = "=", fixed = TRUE)[[1]][2]
    
    for(jj in 1:(length(variables)-1)){
      
      bounds <- c(bounds, 
                  paste0("\t", "0 <= andP_", ss, "_", tt, "_", jj, " <= 1"))
      bounds <- c(bounds, 
                  paste0("\t", "0 <= andM_", ss, "_", tt, "_", jj, " <= 1"))
      
    }
    
  }
  
  return(bounds)
  
}