Я столкнулся с нелепой ситуацией. Чтобы решить проблему с отсутствующими данными, я использовал этот код:
fixed_data <- fetch_data[-which(! complete.cases(train_sample)),]
train_index <- sample(1:nrow(fixed_data), size = .7*nrow(fixed_data))
train_sample <- fixed_data[train_index, ]
test_sample <- fixed_data[-train_index,]
Затем я проверяю строки порционных данных, чтобы убедиться, что нет пропущенного значения, но пропущенное значение все еще есть!
length(which(! complete.cases(fixed_data)))