T to TRUE

Author: jonathan-taylor

selectiveInference/R/funs.fixed.R

@@ -6,7 +6,7 @@ fixedLassoInf <- function(x, y, beta,
                           lambda, family=c("gaussian","binomial","cox"),
                           intercept=TRUE, add.targets=NULL, status=NULL,
                           sigma=NULL, alpha=0.1,
-                          type=c("partial","full"), tol.beta=1e-5, tol.kkt=0.1,
+                          type=c("partial", "full"), tol.beta=1e-5, tol.kkt=0.1,
                           gridrange=c(-100,100), bits=NULL, verbose=FALSE, 
                           linesearch.try=10) {
 
@@ -150,7 +150,7 @@ fixedLassoInf <- function(x, y, beta,
     ci = tailarea = matrix(0,k,2)
 
     if (type=="full" & p > n) {
-      if (intercept == T) {
+      if (intercept == TRUE) {
         pp=p+1
         Xint <- cbind(rep(1,n),x)
         # indices of selected predictors