Final steps to nirvana

Analitik SDM: Memprediksi Pergantian Karyawan dengan R

Anurag Gupta

People Analytics Practitioner

Build your final model

# Final model, you will complete this in the next exercise
final_log <- glm(...)

Predicting probability of turnover

# Make predictions for training dataset
prediction_train <- predict(final_log, newdata = train_set_final, 
                            type = "response")
prediction_train[c(205, 645)]

       205        645 
0.06069079 0.99999898

Plot probability range: training dataset

# Look at the predictions range
hist(prediction_train)

Predicting probability: testing dataset

# Make predictions for testing dataset
# test_set is the test dataset from chapter 3 exercise 2
prediction_test <- predict(final_log, newdata = test_set, 
                           type = "response")

Plot probability range: testing dataset

# Look at the predictions range
hist(prediction_test)

Let's practice!

Analitik SDM: Memprediksi Pergantian Karyawan dengan R