From b45b88dbc139e240d3a46480b5059dfbac063f52 Mon Sep 17 00:00:00 2001
From: Claus Jonathan Fritzemeier <clausjonathan.fritzemeier@hhu.de>
Date: Tue, 7 Apr 2015 16:32:20 +0200
Subject: [PATCH] change to moma class (factor 2 cancelling out)
---
R/sysBiolAlg_momaClass.R | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/R/sysBiolAlg_momaClass.R b/R/sysBiolAlg_momaClass.R
index 1291184..1820f87 100644
--- a/R/sysBiolAlg_momaClass.R
+++ b/R/sysBiolAlg_momaClass.R
@@ -92,7 +92,8 @@ setMethod(f = "initialize",
}
if (is.null(Qmat)) {
- Q <- rep(2, nCols)
+# Q <- rep(2, nCols)
+ Q <- rep(1, nCols)
}
else {
Q <- Qmat
@@ -156,7 +157,8 @@ setMethod(f = "initialize",
ub = uppbnd(model),
lb = lowbnd(model),
#obj = -2 * wtsol,
- obj = (-2 * wtsol) * sdf,
+ #obj = (-2 * wtsol) * sdf,
+ obj = (-1 * wtsol) * sdf,
rlb = rep(0, nRows),
rtype = rep("E", nRows),
lpdir = "min",
--
GitLab