第20行出现问题:x3 <- lm(Salary ~ ...
as.data.frame.default(data)中的错误:无法将类“ c(“ train”,“ train.formula”)'强制转换为data.frame
如何解决?
attach(Hitters)
Hitters
library(caret)
set.seed(123)
# Define training control
set.seed(123)
train.control <- trainControl(method = "cv",number = 10)
# Train the model
x2 <- train(Salary ~.,data = x,method = "lm",trControl = train.control)
# Summarize the results
print(x)
x3 <- lm(Salary ~ poly(AtBat,3) + poly(Hits,3) + poly(Walks,3) + poly(CRuns,3) + poly(CWalks,3) + poly(PutOuts,3),data = x2)
summary(x3)
MSE = mean(x3$residuals^2)
print("Mean Squared Error: ")
print(MSE)