我遇到了一个奇怪的错误
Error in `[.data.frame`(data, , lvls[1]) : undefined columns selected
在使用caret训练glmnet模型时,我遇到了一条消息。我基本上使用相同的代码和相同的预测变量来创建序数模型(只是使用不同的因子y
),并且它可以正常工作。由于计算需要400个核心小时,所以我无法在此处展示它。
#Source a small subset of data
source("https://gist.githubusercontent.com/FredrikKarlssonSpeech/ebd9fccf1de6789a3f529cafc496a90c/raw/efc130e41c7d01d972d1c69e59bf8f5f5fea58fa/voice.R")
trainIndex <- createDataPartition(notna$RC, p = .75,
list = FALSE,
times = 1)
training <- notna[ trainIndex[,1],] %>%
select(RC,FCoM_envel:ATrPS_freq,`Jitter->F0_abs_dif`:RPDE)
testing <- notna[-trainIndex[,1],] %>%
select(RC,FCoM_envel:ATrPS_freq,`Jitter->F0_abs_dif`:RPDE)
fitControl <- trainControl(## 10-fold CV
method = "CV",
number = 10,
allowParallel=TRUE,
savePredictions="final",
summaryFunction=twoClassSummary)
vtCVFit <- train(x=training[-1],y=training[,"RC"],
method = "glmnet",
trControl = fitControl,
preProcess=c("center", "scale"),
metric="Kappa"
)
我没有发现数据中明显的问题。没有缺失值。
table(is.na(training))
FALSE
43166
我不认为它会尝试索引超出列数的内容。有什么建议吗?