From 9e4b8c31048237cbfb3323f818405e750b7cc0b7 Mon Sep 17 00:00:00 2001
From: Matthew Fidler <matthew.fidler@gmail.com>
Date: Thu, 5 Sep 2024 19:31:50 -0500
Subject: [PATCH] rxCov should not be included; exclude manually

---
 R/indDef.R | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/R/indDef.R b/R/indDef.R
index 5bf5d8c..61bf042 100644
--- a/R/indDef.R
+++ b/R/indDef.R
@@ -156,7 +156,13 @@
                         return(.c)
                       })
       .ret$cov <- .monolix2rx$cov
-      .ret$coef <- .coef
+      .ret$coef <- lapply(seq_along(.coef),
+                          function(i) {
+                            .cur <- .coef[[i]]
+                            .w <- which(grepl("^rxCov_", .cur))
+                            if (length(.w) >= 1) .cur <- .cur[-.w]
+                            .cur
+                          })
       .rx <- paste0(.rx, " + ",
                     paste(vapply(seq_along(.ret$coef),
                                  function(i) {