Commit 8a3ca233 authored by DURIF Ghislain's avatar DURIF Ghislain

return number of covariates (for stability selection functions)

parent d0fd6c54
......@@ -110,6 +110,8 @@
#' for increasing size of hyper-parameter grid.}
#' \item{probs.lambda}{A table with estimated probability of selection for each
#' covariates depending on the candidates values for hyper-parameters.}
#' \item{p}{An integer values indicating the number of covariates in the
#' model.}
#'
#' @references
#' Durif G., Modolo L., Michaelsson J., Mold J. E., Lambert-Lacroix S.,
......@@ -409,7 +411,7 @@ logit.spls.stab <- function(X, Y, lambda.ridge.range, lambda.l1.range,
##### return
return(list(q.Lambda=qLambda, probs.lambda=probs_lambda))
return(list(q.Lambda=qLambda, probs.lambda=probs_lambda, p=p))
}
......
......@@ -114,6 +114,8 @@
#' for increasing size of hyper-parameter grid.}
#' \item{probs.lambda}{A table with estimated probability of selection for each
#' covariates depending on the candidates values for hyper-parameters.}
#' \item{p}{An integer values indicating the number of covariates in the
#' model.}
#'
#' @references
#' Durif G., Modolo L., Michaelsson J., Mold J. E., Lambert-Lacroix S.,
......@@ -425,6 +427,6 @@ multinom.spls.stab <- function(X, Y, lambda.ridge.range, lambda.l1.range,
##### return
return(list(q.Lambda=qLambda, probs.lambda=probs_lambda))
return(list(q.Lambda=qLambda, probs.lambda=probs_lambda, p=p))
}
......@@ -111,6 +111,8 @@
#' for increasing size of hyper-parameter grid.}
#' \item{probs.lambda}{A table with estimated probability of selection for each
#' covariates depending on the candidates values for hyper-parameters.}
#' \item{p}{An integer values indicating the number of covariates in the
#' model.}
#'
#' @references
#' Durif G., Modolo L., Michaelsson J., Mold J. E., Lambert-Lacroix S.,
......@@ -364,7 +366,7 @@ spls.stab <- function(X, Y, lambda.l1.range, ncomp.range,
##### return
return(list(q.Lambda=qLambda, probs.lambda=probs_lambda))
return(list(q.Lambda=qLambda, probs.lambda=probs_lambda, p=p))
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment