uncommenting type

Author: jonathan-taylor

selectiveInference/R/funs.fixed.R

@@ -20,9 +20,9 @@ fixedLassoInf <- function(x, y, beta,
 
   family = match.arg(family)
   this.call = match.call()
-  #type = match.arg(type)
+  type = match.arg(type)
   if(family=="binomial")  {
-    #if(type!="partial") stop("Only type= partial allowed with binomial family")
+    if(type!="partial") stop("Only type= partial allowed with binomial family")
     out=fixedLogitLassoInf(x,y,beta,lambda,alpha=alpha, type=type, tol.beta=tol.beta, tol.kkt=tol.kkt,
                            gridrange=gridrange, bits=bits, verbose=verbose,
                            linesearch.try=linesearch.try,

selectiveInference/R/funs.fixedLogit.R

@@ -4,7 +4,7 @@ fixedLogitLassoInf=function(x,y,beta,lambda,alpha=.1, type=c("partial,full"), to
                             linesearch.try=10, this.call=NULL){
 
 
-  #type = match.arg(type)
+  type = match.arg(type)
   checkargs.xy(x,y)
   if (missing(beta) || is.null(beta)) stop("Must supply the solution beta")
   if (missing(lambda) || is.null(lambda)) stop("Must supply the tuning parameter value lambda")