R - Проблема при вязании R Markdown - - PullRequest
Новая
       8

R - Проблема при вязании R Markdown -

0 голосов
/ 11 января 2020

Я получаю сообщение об ошибке ниже, когда связываю мой rmd-документ с HTML.

Строка 71 Ошибка в [.data frame (newdata,, объект $ method $ center, drop = FALSE: выбраны неопределенные столбцы Вызовы: ... предикат -> предикат.preProcess -> развертка -> [ -> [.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)

Я использую код в наборе данных из проекта Coursera на практической машине Обучение. Я не знаю, разрешено ли мне публиковать набор данных здесь. Поэтому, пожалуйста, посмотрите на мой код.

Заранее спасибо!

...