selective-inference
diff --git a/‎selectiveInference/R/funs.fs.R
Lines changed: 2 additions & 1 deletion b/‎selectiveInference/R/funs.fs.R
Lines changed: 2 additions & 1 deletion
diff --git a/‎selectiveInference_1.0.1.tar.gz renamed to ‎versions/selectiveInference_1.0.1.tar.gz b/‎selectiveInference_1.0.1.tar.gz renamed to ‎versions/selectiveInference_1.0.1.tar.gz
diff --git a/‎selectiveInference_1.0.2.tar.gz renamed to ‎versions/selectiveInference_1.0.2.tar.gz b/‎selectiveInference_1.0.2.tar.gz renamed to ‎versions/selectiveInference_1.0.2.tar.gz
diff --git a/‎selectiveInference_1.0.tar.gz renamed to ‎versions/selectiveInference_1.0.tar.gz b/‎selectiveInference_1.0.tar.gz renamed to ‎versions/selectiveInference_1.0.tar.gz
@@ -188,7 +188,8 @@ fs <- function(x, y, maxsteps=2000, intercept=TRUE, normalize=TRUE,
 
     # Record the least squares solution. Note that
     # we have already computed this
-    bls = rep(0,p); bls[A] = keepLs
+    bls = rep(0,p)
+    bls[A] = keepLs
   }
 
   if (verbose) cat("\n")
Original file line number	Diff line number	Diff line change
`@@ -188,7 +188,8 @@ fs <- function(x, y, maxsteps=2000, intercept=TRUE, normalize=TRUE,`
`188`	`188`
`189`	`189`	`# Record the least squares solution. Note that`
`190`	`190`	`# we have already computed this`
`191`		`- bls = rep(0,p); bls[A] = keepLs`
	`191`	`+ bls = rep(0,p)`
	`192`	`+ bls[A] = keepLs`
`192`	`193`	`}`
`193`	`194`
`194`	`195`	`if (verbose) cat("\n")`