stop instead of print

jonathan-taylor · jonathan-taylor · commit 183bc3abb230 · 2017-11-09T22:03:47.000-08:00
diff --git a/selectiveInference/R/funs.randomized.R b/selectiveInference/R/funs.randomized.R
@@ -98,8 +98,8 @@ randomizedLasso = function(X,
     observed_unpen = result$soln[unpenalized]
     observed_subgrad = -n*result$gradient[inactive]
     
-    if (length(which(abs(observed_subgrad)>lam[1]))){
-      print("subgradient eq not satisfied")
+    if (sum(abs(observed_subgrad)>lam*(1.001)) > 0){
+      stop("subgradient eq not satisfied")
     }
 
     observed_opt_state = c(observed_unpen, observed_scalings, observed_subgrad)

Original file line number	Diff line number	Diff line change
`@@ -98,8 +98,8 @@ randomizedLasso = function(X,`
`98`	`98`	`observed_unpen = result$soln[unpenalized]`
`99`	`99`	`observed_subgrad = -n*result$gradient[inactive]`
`100`	`100`
`101`		`- if (length(which(abs(observed_subgrad)>lam[1]))){`
`102`		`- print("subgradient eq not satisfied")`
	`101`	`+ if (sum(abs(observed_subgrad)>lam*(1.001)) > 0){`
	`102`	`+ stop("subgradient eq not satisfied")`
`103`	`103`	`}`
`104`	`104`
`105`	`105`	`observed_opt_state = c(observed_unpen, observed_scalings, observed_subgrad)`