rxCov should not be included; exclude manually

nlmixr2 · Sep 6, 2024 · 9e4b8c3 · 9e4b8c3
1 parent c26ef93
commit 9e4b8c3
Showing 1 changed file with 7 additions and 1 deletion.
diff --git 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) {