Здравствуйте! Делаю по образцу https://stackoverflow.com/questions/36696974/different-results-with-randomforest-and-carets-randomforest-method-rf set.seed(1) rf.model <- randomForest(SalePrice ~ .,

Question

Здравствуйте! Делаю по образцу https://stackoverflow.com/questions/36696974/different-results-with-randomforest-and-carets-randomforest-method-rf set.seed(1) rf.model <- randomForest(SalePrice ~ .,

data = train,
ntree = 50,
nodesize = 5,
mtry = 2,
importance = TRUE,
metric = "RMSE")

library("caret")
caret.oob.model <- train(train[,-ncol(train)], train$SalePrice,
method = "rf",
ntree = 50,
tuneGrid = data.frame(mtry = 2),
nodesize = 5,
importance = TRUE,
metric = "RMSE",
trControl = trainControl(method = "oob", set.seed (1)),
allowParallel = FALSE)
rf.model
caret.oob.model$finalModel
но при этом рузультаты не совпадают.
> rf.model
Mean of squared residuals: 1197658364
% Var explained: 81.01
> caret.oob.model$finalModel
Mean of squared residuals: 1236057017
% Var explained: 80.4
Почему так происходит? И как это исправить?

#programming #r #russian

0

24.08.2020

1 ответов

18 просмотров

Артём Клевцов · Accepted Answer

Артём Клевцов

answered Apr 19 '16 at 9:18 Может поэтому?

0

24.08.2020

169 похожих чатов

Здравствуйте! Делаю по образцу https://stackoverflow.com/questions/36696974/different-results-with-randomforest-and-carets-randomforest-method-rf set.seed(1) rf.model <- randomForest(SalePrice ~ .,

1 ответов

Похожие вопросы