R-针织时的问题R降价-

我在将rmd文档编织为HTML时遇到以下错误

第71行

[.data frame

（newdata，object$method$center，drop=FALSE:未定义的列所选调用：…predict->predict.preProcess->sweep->[->[.data.frame执行已停止

这是我正在使用的代码

# Splitting training set into 75% training and 25% testing
set.seed(1)
inTrain <- createDataPartition(training$classe, p = 0.75, list = FALSE)

trainingset <- training[inTrain,]
testingset <- training[-inTrain,]
dim(trainingset); dim(testingset)

# Cleaning values with nearly zerio variance
NZV <- nearZeroVar(trainingset)
trainingset <- training[, -NZV]
testingset <- training[, -NZV]
dim(trainingset); dim(testingset)

# Cleaning NA values
navalues <- sapply(trainingset, function(x) mean(is.na(x))) > 0.95
trainingset <- trainingset[, navalues==FALSE]
testingset  <- testingset[, navalues==FALSE]
dim(trainingset); dim(testingset)

# Remove identification variables (first 5 variables of the dataset)
trainingset <- trainingset[, -(1:5)]
testingset  <- testingset[, -(1:5)]
dim(trainingset); dim(testingset)

# Remove predictors that are highly correlated
trainingset_cor <- cor(trainingset[, -54])
highcor <- findCorrelation(trainingset_cor, 0.90)
trainingset <- trainingset[, -highcor]
testingset <- trainingset[, -highcor]
dim(trainingset); dim(testingset)

# Preprocess values
xTrans <- preProcess(trainingset)
trainingset <- predict(xTrans, trainingset)
testingset <- predict(xTrans, testingset)

#将培训集分为75%的培训和25%的测试
种子（1）
inTrain我在您提供的代码片段中看不到第71行，但从错误消息来看，您似乎试图使用dataframe中不存在的列。object$method$center-是否正确？请尝试在一行上运行此命令，看看它是否运行良好。嗨，Robin，感谢您的回复。第71行是我的问题中代码的开始部分选项。我之前遗漏了所有代码，因为没有错误。您可以提供一个数据集的示例，以尝试重现错误。此外，行
trainingset createDataPartition（training$classe…>classe？？？这是一个打字错误吗？应该是class/classes吗？但正如Phil所说，你可以想出一个例子，指出你的问题，并与一个虚拟数据框/数据共享它