Độ khớp trong mẫu của mô hình ràng buộc
Bạn đã tính độ chính xác cho logitModelFull. Điều này rất quan trọng và cần thực hiện cho tất cả các ứng viên mô hình.
Vì vậy, logitModelNew đã được khai báo và có sẵn trong môi trường của bạn.
Khi so sánh các giá trị giữa các mô hình: nếu nhiều mô hình có cùng độ chính xác, hãy luôn chọn mô hình có ít biến giải thích hơn.
Bài tập này là một phần của khóa học
Machine Learning cho Phân tích Marketing bằng R
Hướng dẫn bài tập
Lặp lại các bước như bài tập trước cho mô hình mới.
Dùng
predict()để lấy xác suất mỗi khách hàng sẽ vỡ nợ thanh toán.Sau đó tính ma trận nhầm lẫn với cùng ngưỡng phân loại 0.5. Lưu ý rằng
SDMToolskhông còn có thể tải từ CRAN. Thay vào đó hãy cài quaremotes::install_version("SDMTools", "1.1-221.2").Tính độ chính xác của mô hình ràng buộc và so sánh với độ chính xác của mô hình đầy đủ. Bạn sẽ tiếp tục phân tích chỉ với mô hình tốt hơn.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# Calculate the accuracy for 'logitModelNew'
# Make prediction
defaultData$predNew <- predict(logitModelNew, type = ___, na.action = ___)
# Construct the in-sample confusion matrix
confMatrixModelNew <- confusion.matrix(defaultData$___,defaultData$___, threshold = ___)
confMatrixModelNew
# Calculate the accuracy...
accuracyNew <- sum(diag(___)) / ___(___)
accuracyNew
# and compare it to the full model's accuracy
accuracyFull