ДВ
Size: a a a
ДВ
ДВ
М
ДВ
a %in% b
. Отрицание - восклицательный знак. Получается ! a %in% b
М
a %in% b
. Отрицание - восклицательный знак. Получается ! a %in% b
MM
tuning_folds <- vfold_cv(posts_liwc_with_values, v = 5)
recipe_for_Self_en <- recipe(Self_en ~., data = posts_liwc_with_values) %>%
update_role(idstud, doc_id, timestamp, new_role = "ID") %>%
step_rm(CON, Self_tr, OTC)
rf_spec <-
rand_forest(trees = 750,
min_n = 5,
mtry = 22) %>%
set_mode("regression") %>%
set_engine("randomForest")
rf_wf <- workflow() %>%
add_recipe(recipe_for_Self_en) %>%
add_model(rf_spec)
library(doParallel)
#PARALLELIZATION
doParallel::registerDoParallel()
library(parallel)
# Create a cluster object and then register:
cl <- makePSOCKcluster(7)
registerDoParallel(cl)
tune_Self_en_rf <- fit_resamples(
rf_wf,
resamples = tuning_folds,
metrics = metric_set(rsq, rmse, mae, mape)
)
JL
MM
JL
ED
IY
I
MM
JL
JL
MM
JL
JL
MM
JL