From 564829b1740072b2fba0f64159ac355a691add57 Mon Sep 17 00:00:00 2001 From: Sajjad Ghaffarinasabsharabiani <ghaffas@hhu.de> Date: Tue, 9 Aug 2022 10:17:24 +0000 Subject: [PATCH] Upload New File --- .../helper/applyMediaBoundsOnModel.R | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 networkComplexityBigg/helper/applyMediaBoundsOnModel.R diff --git a/networkComplexityBigg/helper/applyMediaBoundsOnModel.R b/networkComplexityBigg/helper/applyMediaBoundsOnModel.R new file mode 100644 index 0000000..c51fb04 --- /dev/null +++ b/networkComplexityBigg/helper/applyMediaBoundsOnModel.R @@ -0,0 +1,17 @@ +applyMediaBoundsOnModel <- function(model, medium, uptakeLowBnd=-10){ + + ex <- findExchReact(model) + + lowbnd(model)[react_pos(ex)] <- 0 + + exOnly <- ex[grep("^EX_", react_id(ex))] + exMap <- react_pos(exOnly) + names(exMap) <- gsub("\\[\\w\\]$", "", met_id(exOnly)) + + lb <- rep(0, length(exMap)) + lb[names(exMap) %in% medium] <- uptakeLowBnd + + lowbnd(model)[exMap] <- lb + + return(model) +} -- GitLab