diff --git a/DESCRIPTION b/DESCRIPTION
index 8deacff977e0e5056678baa129656c4596f43709..a2546a17614e1a108e54f5a278ce4dd9c31150a4 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
Package: sybil
Type: Package
Title: Efficient Constrained Based Modelling
-Version: 2.1.2
-Date: 2018-07-20
+Version: 2.1.3
+Date: 2018-12-21
Authors@R: c(
person("Mayo", "Roettger", role = c("cre"), email = "mayo.roettger@hhu.de"),
person("Gabriel", "Gelius-Dietrich", role = "aut"),
@@ -56,7 +56,7 @@ Collate: generics.R validmodelorg.R validoptsol.R validreactId.R validreact.R
sysBiolAlg_mtfClass.R sysBiolAlg_mtfEasyConstraintClass.R
sysBiolAlg_roomClass.R sybilLogClass.R upgradeModelorg.R
mergeReact2Modelorg.R
-Packaged: 2018-07-20 08:13:00 UTC; jonathan
+Packaged: 2018-12-21 12:40:00 UTC; mayo
Author: Mayo Roettger [cre],
Gabriel Gelius-Dietrich [aut],
C. Jonathan Fritzemeier [ctb],
diff --git a/R/optObj_cplexAPIClass.R b/R/optObj_cplexAPIClass.R
index 65e74da6d47450a0def6e9edb8d48a437a09bf45..4a0a22ba26fc7ef6104722298ed01feaa5634aae 100644
--- a/R/optObj_cplexAPIClass.R
+++ b/R/optObj_cplexAPIClass.R
@@ -966,10 +966,10 @@ setMethod("getObjVal", signature(lp = "optObj_cplexAPI"),
setMethod("getRedCosts", signature(lp = "optObj_cplexAPI"),
function(lp) {
-
- nr <- cplexAPI::getNumRowsCPLEX(lp@oobj@env, lp@oobj@lp)
- out <- cplexAPI::getDjCPLEX(lp@oobj@env, lp@oobj@lp, 0, nr-1)
-
+
+ nc <- cplexAPI::getNumColsCPLEX(lp@oobj@env, lp@oobj@lp)
+ out <- cplexAPI::getDjCPLEX(lp@oobj@env, lp@oobj@lp, 0, nc-1)
+
return(out)
}
)
diff --git a/inst/NEWS.Rd b/inst/NEWS.Rd
index 33d92551eab6f69181478298a3f08b6e8a2390df..0f4f3d20507e82eb3a7d08b25c824aa254cdd79c 100644
--- a/inst/NEWS.Rd
+++ b/inst/NEWS.Rd
@@ -7,6 +7,14 @@
\newcommand{\CRANpkg}{\href{https://CRAN.R-project.org/package=#1}{\pkg{#1}}}
% ---------------------------------------------------------------------------- %
+\section{Changes in version 2.1.3 2018-12-21}{
+ \itemize{
+ \item Minor bug fix for function \code{getRedCosts} in \code{optObj_cplexAPI}.
+ \
+ }
+}
+% ---------------------------------------------------------------------------- %
+
\section{Changes in version 2.1.2 2018-07-20}{
\itemize{
\item Maintainer change to Mayo Roettger <mayo.roettger@hhu.de>