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