Как мне избавиться от следующей ошибки: «Ошибка в eval(предварительные параметры, данные, env) : объект «X4″ не найден»?

#r

Вопрос:

Я пытаюсь запустить линейную регрессию, однако продолжаю получать сообщение об ошибке «Ошибка в оценке(предвары, данные, env) : объект» X4 «не найден»

Я приложил код, который я пробовал. Я не уверен, что мне нужно исправить, потому что я вижу X4, указанный в предыдущем выводе кода. Я попытался перезапустить R, но безуспешно. Пожалуйста, помогите!

 install.packages("AppliedPredictiveModeling")
library(AppliedPredictiveModeling)
library(caret)
library(e1071) # misc library including skewness function
library(corrplot)
library(lattice)
data(tecator)
absorpTrain<-data.frame(absorp[1:54,])
absorpTest<-data.frame(endpoints[55:215,])
endpointsTrain<-(endpoints[1:54])
endpointsTest<-(absorp[55:215])
absorpPPTrain<-preProcess(absorpTrain,method="BoxCox")
absorpPPTest<-preProcess(absorpTest,method="BoxCox")
absorpTesttrans<-predict(absorpPPTest,absorpTest)
absorpTraintrans<-predict(absorpPPTrain,absorpTrain)
#Part 1 with Near Zero value
dataabsorp<-data.frame(absorp)

lmFitAllPredictors = lm(endpointsTrain ~ . , data = absorpTraintrans)
summary(lmFitAllPredictors)

# Compue the solubility for the new test samples 
lmPred1 = predict(lmFitAllPredictors, absorpTesttrans)