Wooldridge Source: R.C. Fair (1978), “A Theory of Extramarital Affairs,” Journal of Political Economy 86, 45-61, 1978. I collected the data from Professor Fair’s web cite at the Yale University Department of Economics. He originally obtained the data from a survey by Psychology Today. Data loads lazily.
data('affairs')A data.frame with 601 observations on 19 variables:
id: identifier
male: =1 if male
age: in years
yrsmarr: years married
kids: =1 if have kids
relig: 5 = very relig., 4 = somewhat, 3 = slightly, 2 = not at all, 1 = anti
educ: years schooling
occup: occupation, reverse Hollingshead scale
ratemarr: 5 = vry hap marr, 4 = hap than avg, 3 = avg, 2 = smewht unhap, 1 = vry unhap
naffairs: number of affairs within last year
affair: =1 if had at least one affair
vryhap: ratemarr == 5
hapavg: ratemarr == 4
avgmarr: ratemarr == 3
unhap: ratemarr == 2
vryrel: relig == 5
smerel: relig == 4
slghtrel: relig == 3
notrel: relig == 2
https://www.cengage.com/cgi-wadsworth/course_products_wp.pl?fid=M20b&product_isbn_issn=9781111531041
This is an interesting data set for problem sets starting in Chapter 7. Even though naffairs (number of extramarital affairs a woman reports) is a count variable, a linear model can be used to model its conditional mean as an approximation. Or, you could ask the students to estimate a linear probability model for the binary indicator affair, equal to one of the woman reports having any extramarital affairs. One possibility is to test whether putting the single marriage rating variable, ratemarr, is enough, against the alternative that a full set of dummy variables is needed; see pages 239-240 for a similar example. This is also a good data set to illustrate Poisson regression (using naffairs) in Section 17.3 or probit and logit (using affair) in Section 17.1.
Used in Text: not used
str(affairs)
#> 'data.frame': 601 obs. of 19 variables:
#> $ id : int 4 5 6 11 12 16 23 29 43 44 ...
#> $ male : int 1 0 1 0 0 1 1 0 1 0 ...
#> $ age : num 37 27 27 32 27 57 22 32 37 22 ...
#> $ yrsmarr : num 10 4 1.5 15 4 15 0.75 1.5 15 0.75 ...
#> $ kids : int 0 0 0 1 1 1 0 0 1 0 ...
#> $ relig : int 3 4 3 1 3 5 2 2 5 2 ...
#> $ educ : int 18 14 18 12 17 18 17 17 18 12 ...
#> $ occup : int 7 6 4 1 1 6 6 5 6 1 ...
#> $ ratemarr: int 4 4 4 4 5 5 3 5 2 3 ...
#> $ naffairs: int 0 0 3 0 3 0 0 0 7 0 ...
#> $ affair : int 0 0 1 0 1 0 0 0 1 0 ...
#> $ vryhap : int 0 0 0 0 1 1 0 1 0 0 ...
#> $ hapavg : int 1 1 1 1 0 0 0 0 0 0 ...
#> $ avgmarr : int 0 0 0 0 0 0 1 0 0 1 ...
#> $ unhap : int 0 0 0 0 0 0 0 0 1 0 ...
#> $ vryrel : int 0 0 0 0 0 1 0 0 1 0 ...
#> $ smerel : int 0 1 0 0 0 0 0 0 0 0 ...
#> $ slghtrel: int 1 0 1 0 1 0 0 0 0 0 ...
#> $ notrel : int 0 0 0 0 0 0 1 1 0 1 ...
#> - attr(*, "time.stamp")= chr "25 Jun 2011 23:03"