removed set seed when gen randomization

Author: Jelena Markovic

selectiveInference/R/funs.randomized.R

@@ -41,7 +41,6 @@ randomizedLasso = function(X,
 
     if (noise_scale > 0) {
         if (noise_type == 'gaussian') {
-            set.seed(1)
             perturb_ = rnorm(p) * noise_scale
         }
         else if (noise_type == 'laplace') {

tests/randomized/test_instances.R

@@ -76,7 +76,7 @@ collect_results = function(n,p,s, nsim=100, level=0.9, condition_subgrad=TRUE, l
                                                      lam=lam, 
                                                      sigma=sigma,
                                                      level=level, 
-                                                     sampler = "A",
+                                                     sampler = "R",
                                                      burnin=1000, 
                                                      nsample=5000, 
                                                      condition_subgrad=condition_subgrad)