The data in ex1223 from the Sleuth3 library in R corresponds to a subset of the National Longitudinal Study of Youth (NLSY79) survey. You can read more about this data using ? ex1223.

The variable Esteem1 is the respondents degree of agreement in 2006 with the statement I feel that Im a person of worth, at least on equal basis with others, with values of 1, 2, 3, and 4 signifying strong agreement, agreement, disagreement, or strong disagreement, respectively.

Construct a new binary response variable from this, which takes on the value 1 for strong agreement and 0 for agreement, disagreement, or strong disagreement. Explore the dependence of the probability that a person has positive self-esteem (as indicated by a response of strong agreement on Esteem1) by determining a logistic regression model by regressing upon the other variables in the dataset.

For your training data. Use a model-building strategy using the following predictors as potential regressors:

log annual income in 2005 (take the log of Income2005), intelligence as measured by the AFQT score in 1981 (AFQT), years of education (Educ), gender (Gender), race (Race), and potential interactions between these variables and quadratic terms of these predictors