设置数据以比较多个RMSE值-获取列名错误

问题描述

我正在尝试对数据进行一系列回归和建模。下面的代码来自一个讲座，当我尝试自己运行它时，给我一个错误：

library(caret)
data(tecator)
fat = endpoints[,2]
PCA = prcomp(absorp)
scree = PCA$sd^2/sum(PCA$sd) * 100

set.seed(10)
lm_model = train(absorp,fat,method = "lm",preProcess = c("center","scale"),trControl = trainControl(method = "repeatedcv",repeats = 5))
lm_model

我得到的错误是Error: Please use column names for x

我正在尝试比较几种不同测试的RMSE并进行比较。

该讲座还运行以下代码，这些代码均给我带来相同的错误：

pls_model <- train(absorp,method = "pls",tuneLength = 40,trControl = trainControl(method = "repeatedcv"),repeats = 5)

ridgeGrid = data.frame(.lambda = seq(0,1,length = 20))
set.seed(10)
ridge_model = train(absorp,method = "ridge",tuneGrid = ridgeGrid,repeats = 5))

enetGrid = expand.grid(.lamdba = seq(0,length = 20),.fraction = seq(0.05,1.0,length = 20))
set.seed(10)
enet_model = train(absorp,method = "enet",tuneGrid = enetGrid,repeats = 5))

我不知道为什么这些对我不起作用，但对我的教授起作用。我的数据格式错误吗？这些是他的例子。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）