When discrete_a is missing, keep it missing

nlmixr2 · Sep 12, 2024 · 8a0a4b9 · 8a0a4b9
1 parent d26e275
commit 8a0a4b9
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/R/poped.R b/R/poped.R
@@ -1220,8 +1220,6 @@ attr(rxUiGet.popedNotfixedSigma, "desc") <- "PopED database $notfixed_sigma"
       }
       if (!is.null(discrete_a)) {
         discrete_a <- c(list(ID=1), discrete_a)
-      } else {
-        discrete_a <- list(ID=1)
       }
     } else {
       stop()