R中的cv.lars錯誤

Question

我有關於cv.lars的問題。 貝婁有一個我使用的數據的描述：

is.numeric(Y$Y1)
[1] TRUE

length(Y$Y1)
[1] 589


dim(Training_XX[7:ncol(Training_XX)])
[1]  589 5677

我已經使用lars包運行套索了 。 我的代碼如下：

LASSO_1<-lars(as.matrix(X[7:ncol(X)]), 
              Y$Y1,type=c("lasso"), 
              normalize=TRUE, use.Gram=FALSE).

上述程序似乎運行良好。 但是，當我嘗試交叉驗證 lambda值時，我收到以下錯誤：

Error in if (zmin < gamhat) { : missing value where TRUE/FALSE needed

我的交叉驗證代碼是：

CV<-cv.lars(as.matrix(X[7:ncol(X)]),Y$Y1,use.Gram=FALSE,max.steps=500)
lambda_Y1=CV$index[which.min(CV$cv)]

有誰知道發生了什么事？ 我真的不知道這個錯誤意味着什么，我的數據（和/或代碼）有什么問題。

Answer 1

我得到了同樣的錯誤，問題（至少在我的情況下）是我的數據矩陣的兩列是相等的。 似乎lars不能很好地處理這個問題。 只需過濾具有非常高相關性的列。