Lasso error in glmnet NA/NaN/Inf

问题:

I'm having an issue with glmnet in that I keep getting the error message

"Error in elnet(x, is.sparse, ix, jx, y, weights, offset, type.gaussian,  : NA/NaN/Inf in foreign function call (arg 5) In addition: Warning message: In elnet(x, is.sparse, ix, jx, y, weights, offset, type.gaussian,  : NAs introduced by coercion" 

Below I can replicate the error with the 'iris' data set, but here is the simplified code for my particular data:

vars <- as.matrix(ind.vars) lasso <- glmnet(vars, y=cup98$TARGET_D, alpha=1) 

Here is something you can easily reproduce:

data(iris) attach(iris) x <- as.matrix(data.frame(Sepal.Width, Petal.Length, Petal.Width, Species)) y <- Sepal.Length lasso <- glmnet(x,y=y, alpha=1) 

Thanks a lot everybody!

回答1:

With as.matrix you are coercing the numeric values to character because you are leaving in "Species":

str(as.matrix(iris[, c('Sepal.Width', 'Petal.Length', 'Petal.Width', 'Species')]))  chr [1:150, 1:4] "3.5" "3.0" "3.2" "3.1" "3.6" "3.9" ...  - attr(*, "dimnames")=List of 2   ..$ : NULL   ..$ : chr [1:4] "Sepal.Width" "Petal.Length" "Petal.Width" "Species" 

Also usually a very bad idea to use attach/detach, and if you do not know why you should not use it, then you most definitely should not use it.

data(iris); require(glmnet) x<-as.matrix(iris[, c('Sepal.Width', 'Petal.Length', 'Petal.Width')]) y<-iris$Sepal.Length lasso<-glmnet(x,y=y, alpha=1); lasso   # no error 

文章来源: Lasso error in glmnet NA/NaN/Inf