add check for negative penalty strength

stephenslab · Jun 1, 2023 · e40e06f · e40e06f
1 parent 2e3c219
commit e40e06f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/ud_fit.R b/R/ud_fit.R
@@ -288,6 +288,8 @@ ud_fit <- function (fit, X, control = list(), verbose = TRUE) {
                 control$rank1.update,
                 control$unconstrained.update))
     if (control$lambda!=0)
+      if (control$lambda < 0)
+        stop("Penalty strength lambda can't be negative")
       cat(sprintf("covariance regularization: penalty strength = %0.2e, method = %s\n",
                   control$lambda, control$penalty.type))
     cat(sprintf("mixture weights update: %s\n",control$weights.update))