Commit bdbd13a7 authored by DURIF Ghislain's avatar DURIF Ghislain

fix verbosity of warning

parent e12b5d7c
......@@ -354,7 +354,7 @@ logit.spls.cv <- function(X, Y, lambda.ridge.range, lambda.l1.range,
stop("Message from logit.spls.cv: the procedure stops because number of predictor variables with no null variance is less than 1.")
}
warning("There are covariables with nul variance")
warning("Message from logit.spls.cv: There are covariables with null variance in the current sub-sampling, they will be ignored.")
# remove predictor with null variance
Xtrain <- Xtrain[,which(sigma2train >= .Machine$double.eps)]
......
......@@ -365,7 +365,7 @@ multinom.spls.cv <- function(X, Y, lambda.ridge.range, lambda.l1.range, ncomp.ra
stop("Message from multinom.spls.cv: the procedure stops because number of predictor variables with no null variance is less than 1.")
}
warning("There are covariables with nul variance")
warning("Message from multinom.spls.cv: There are covariables with nul variance in the current sub-sampling, they will be ignored.")
# remove predictor with null variance
Xtrain <- Xtrain[,which(sigma2train >= .Machine$double.eps)]
......
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