Support different IDs

nlmixr2 · Sep 8, 2024 · 02e2789 · 02e2789
1 parent cff267f
commit 02e2789
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/poped.R b/R/poped.R
@@ -1052,10 +1052,10 @@ attr(rxUiGet.popedNotfixedSigma, "desc") <- "PopED database $notfixed_sigma"
   if (length(.need) > 0) {
     if (is.null(a)) {
     } else if (is.list(a)) {
-      if (length(.a[, "ID"]) != 1) {
-        stop("when optimizing design elements, only one ID in the input data can be used",
-             call.=FALSE)
-      }
+      ## if (length(.a[, "ID"]) != 1) {
+      ##   stop("when optimizing design elements, only one ID in the input data can be used",
+      ##        call.=FALSE)
+      ## }
       .a <- setNames(as.vector(.a),colnames(.a))
       .a <- lapply(seq_along(a),
                    function(i) {