Результаты R для функции upliftRF зависят от версии R - PullRequest
Новая
       34

Результаты R для функции upliftRF зависят от версии R

0 голосов
/ 23 марта 2020

Я установил случайное начальное число, однако при использовании функции upliftRF результаты, похоже, различаются в зависимости от версии R. Карета должна взять случайное семя. Я просто не могу понять, почему это так. 

# Random Seed
set.seed(1029)

#Load libraries
library('rsample') 
library('caret')
library('uplift')

# Create a Training and Test Set
a <- createDataPartition(data$outcome, p = 0.8, list = FALSE)
training <- data[a, ]
test <- data[-a, ]

### Fit upliftRF model
RF_training <- upliftRF(form,
                        data = training,
                        split_method = "KL",
                        ....)

pred_RF <- predict(RF_training, test)

### evaluate model performance
perf_RF <- performance(pred_RF[, 1], pred_RF[, 2], test$outcome, test$treat, direction = 1, groups = 5)

# Qini results vary by version
Q <- qini(perf_RF, plotit = TRUE)
Q
...