survey_data$high_satisfaction <- as.integer(survey_data$life_satisfaction > 3)
result <- logistic_regression(survey_data, high_satisfaction ~ age + income)
summary(result) # all sections
summary(result, classification = FALSE) # hide classification table
Run the code above in your browser using DataLab