在R中为多项式使用cv.glmnet时出错

在尝试使用

cv.glmnet

对我的数据执行交叉验证时，我遇到了错误

Error in apply(nz, 1, median) : dim(X) must have a positive length

在下一行中，

y

是一个3级变量（我在原始变量上使用了

as.factor（）

）。预测值

x

由一个连续变量（mage）和一些因子变量组成（在分类变量上再次使用

as.factor（）

）。正如另一篇在线帖子所建议的，我收集所有预测因素的代码是：

xfactors <- model.matrix(ANYHEART ~ mrace+frace+sex+smoke+alcohol+bmi+dbt+ben+tol+
                                    xyl+car+chl+met+per+tca+tce+sto+chlor+arom)[,-1]
x <- as.matrix(data.frame(mage, xfactors))
y <- as.factor(ANYHEART)
fit = glmnet(x, y, family="multinomial", type.multinomial="grouped")

---

xfactors这里有一些讨论：据推测它在glmnet 1.7.3中已修复，但仍在报告中。我在Windows和GLMNET2.0-2上使用R3.2.1的真实数据中看到了这个错误。训练数据包含229个预测因子的449个观察值。响应变量有9个级别。欢迎就如何进行提出任何建议。
cvfit <- cv.glmnet(x, y, family="multinomial", type.multinomial="grouped")