#r #machine-learning #tidyverse #purrr #tibble
#r #машинное обучение #tidyverse #мурлыканье #тиббл
Вопрос:
В настоящее время я пытаюсь создать модель с использованием пакета ranger.
Я предварительно обрабатываю данные, создавая перекрестно проверенные сгибы, а затем извлекаю обучающие и тестовые фреймы данных в их собственные столбцы списка.
Вот приведенный ниже код, переходящий от создания моего обучающего и тестового набора данных к моделированию и попытке повторить мою модель на моих перекрестно проверенных tibbles. Я в основном следую инструкциям, приведенным здесь, но со своими собственными данными и той же структурой данных
Splitting Up the Data
data_split <- initial_split(historical_df, prop = .80)
#Creating Training Dataset
training_data <- training(data_split)
#Creating Testing Dataset
testing_data <- testing(data_split)
#Counting Rows in the Training Dataset
nrow(training_data)
#Counting Rows in the Testing Dataset
nrow(testing_data)
#Creating cross validated data frames
cv_data_split <- vfold_cv(training_data, v = 5)
cv_data_split
#Extract Training and Testing Data Franes into their Own List Columns
cv_data <- cv_data_split %>%
mutate(train = map(splits, ~training(.x)),
validate = map(splits, ~testing(.x)))
#Creating Ranger/Random Forest Model with Cross Validated Data amp; Following tidy ML Steps Usins Tibbles
cv_model_rf <- cv_data %>%
mutate(model = map(train, ranger(formula = E2E_BUS_DAYS~ ORD_DOW SG_LOC RDC_NBR STR_NBR MKT_NBR RGN_NBR DIST,
data = .x, seed = 42,
num.trees = 100 ,
mtry = 3,
quantreg = TRUE,
min.node.size = 30,
importance = 'permutation')))
#ERROR
Error: Problem with `mutate()` input `model`.
x object '.x' not found
i Input `model` is `map(...)`
Я не уверен, в чем проблема с mutate, и .x был создан в переменной cv_data. Объект cv_data выглядит так
Вот объект cv_data_split
Комментарии:
1. Попробуйте добавить
~
i.emap(train, ~ranger(formula .....