modified loan_default_prediction.R