Wooldridge Data loads lazily.
data('happiness')A data.frame with 17137 observations on 33 variables:
year: gss year for this respondent
workstat: work force status
prestige: occupational prestige score
divorce: ever been divorced or separated
widowed: ever been widowed
educ: highest year of school completed
reg16: region of residence, age 16
babies: household members less than 6 yrs old
preteen: household members 6 thru 12 yrs old
teens: household members 13 thru 17 yrs old
income: total family income
region: region of interview
attend: how often r attends religious services
happy: general happiness
owngun: =1 if own gun
tvhours: hours per day watching tv
vhappy: =1 if 'very happy'
mothfath16: =1 if live with mother and father at 16
black: =1 if black
gwbush04: =1 if voted for G.W. Bush in 2004
female: =1 if female
blackfemale: black*female
gwbush00: =1 if voted for G.W. Bush in 2000
occattend: =1 if attend is 3, 4, or 5
regattend: =1 if attend is 6, 7, or 8
y94: =1 if year == 1994
y96:
y98:
y00:
y02:
y04:
y06: =1 if year == 2006
unem10: =1 if unemployed in last 10 years
https://www.cengage.com/cgi-wadsworth/course_products_wp.pl?fid=M20b&product_isbn_issn=9781111531041
str(happiness)
#> 'data.frame': 17137 obs. of 33 variables:
#> $ year : int 1994 1994 1994 1994 1994 1994 1994 1994 1994 1994 ...
#> $ workstat : Factor w/ 10 levels "iap","working fulltime",..: 8 2 2 2 3 3 2 2 2 2 ...
#> $ prestige : int 46 22 29 42 36 43 20 44 42 46 ...
#> $ divorce : Factor w/ 5 levels "iap","yes","no",..: NA 3 3 2 NA NA 3 NA 3 NA ...
#> $ widowed : Factor w/ 5 levels "iap","yes","no",..: 1 1 1 1 NA NA NA NA NA 1 ...
#> $ educ : int 12 12 12 8 13 15 9 12 12 12 ...
#> $ reg16 : Factor w/ 10 levels "foreign","new england",..: 3 1 1 1 3 3 3 1 1 3 ...
#> $ babies : int 2 0 0 0 0 0 0 0 2 0 ...
#> $ preteen : int 3 0 0 0 1 0 1 0 1 0 ...
#> $ teens : int 0 0 0 0 1 0 1 0 0 1 ...
#> $ income : Factor w/ 16 levels "iap","lt $1000",..: 10 NA 11 11 10 13 12 10 13 11 ...
#> $ region : Factor w/ 10 levels "not assigned",..: 3 3 3 3 3 3 3 3 3 3 ...
#> $ attend : Factor w/ 10 levels "never","lt once a year",..: 4 8 9 3 3 4 9 9 4 9 ...
#> $ happy : Factor w/ 6 levels "iap","very happy",..: 3 2 3 4 4 3 4 2 3 3 ...
#> $ owngun : Factor w/ 6 levels "iap","yes","no",..: NA NA 1 NA 1 1 1 NA 1 1 ...
#> $ tvhours : int 2 3 1 3 NA 0 10 4 2 NA ...
#> $ vhappy : int 0 1 0 0 0 0 0 1 0 0 ...
#> $ mothfath16 : int 1 0 0 0 0 0 1 1 0 1 ...
#> $ black : int 1 1 1 0 1 1 0 1 1 1 ...
#> $ gwbush04 : int NA NA NA NA NA NA NA NA NA NA ...
#> $ female : int 1 0 1 0 1 1 1 0 1 1 ...
#> $ blackfemale: int 1 0 1 0 1 1 0 0 1 1 ...
#> $ gwbush00 : int NA NA NA NA NA NA NA NA NA NA ...
#> $ occattend : int 1 0 0 0 0 1 0 0 1 0 ...
#> $ regattend : int 0 0 1 0 0 0 1 1 0 1 ...
#> $ y94 : int 1 1 1 1 1 1 1 1 1 1 ...
#> $ y96 : int 0 0 0 0 0 0 0 0 0 0 ...
#> $ y98 : int 0 0 0 0 0 0 0 0 0 0 ...
#> $ y00 : int 0 0 0 0 0 0 0 0 0 0 ...
#> $ y02 : int 0 0 0 0 0 0 0 0 0 0 ...
#> $ y04 : int 0 0 0 0 0 0 0 0 0 0 ...
#> $ y06 : int 0 0 0 0 0 0 0 0 0 0 ...
#> $ unem10 : int 1 0 NA 1 0 NA NA 0 NA 1 ...
#> - attr(*, "time.stamp")= chr "22 Jan 2013 14:09"
#> - attr(*, "label.table")=List of 15
#> ..$ wrkstat : Named num [1:10] 0 1 2 3 4 5 6 7 8 9
#> .. ..- attr(*, "names")= chr [1:10] "iap" "working fulltime" "working parttime" "temp not working" ...
#> ..$ prestg80: Named num 0
#> .. ..- attr(*, "names")= chr "dk,na,iap"
#> ..$ divorce : Named num [1:5] 0 1 2 8 9
#> .. ..- attr(*, "names")= chr [1:5] "iap" "yes" "no" "dk" ...
#> ..$ widowed : Named num [1:5] 0 1 2 8 9
#> .. ..- attr(*, "names")= chr [1:5] "iap" "yes" "no" "dk" ...
#> ..$ educ : Named num [1:3] 97 98 99
#> .. ..- attr(*, "names")= chr [1:3] "iap" "dk" "na"
#> ..$ reg16 : Named num [1:10] 0 1 2 3 4 5 6 7 8 9
#> .. ..- attr(*, "names")= chr [1:10] "foreign" "new england" "middle atlantic" "e. nor. central" ...
#> ..$ babies : Named num [1:2] 8 9
#> .. ..- attr(*, "names")= chr [1:2] "8 or more" "na"
#> ..$ preteen : Named num [1:2] 8 9
#> .. ..- attr(*, "names")= chr [1:2] "8 or more" "na"
#> ..$ teens : Named num [1:2] 8 9
#> .. ..- attr(*, "names")= chr [1:2] "8 or more" "na"
#> ..$ income : Named num [1:16] 0 1 2 3 4 5 6 7 8 9 ...
#> .. ..- attr(*, "names")= chr [1:16] "iap" "lt $1000" "$1000 to 2999" "$3000 to 3999" ...
#> ..$ region : Named num [1:10] 0 1 2 3 4 5 6 7 8 9
#> .. ..- attr(*, "names")= chr [1:10] "not assigned" "new england" "middle atlantic" "e. nor. central" ...
#> ..$ attend : Named num [1:10] 0 1 2 3 4 5 6 7 8 9
#> .. ..- attr(*, "names")= chr [1:10] "never" "lt once a year" "once a year" "sevrl times a yr" ...
#> ..$ happy : Named num [1:6] 0 1 2 3 8 9
#> .. ..- attr(*, "names")= chr [1:6] "iap" "very happy" "pretty happy" "not too happy" ...
#> ..$ owngun : Named num [1:6] 0 1 2 3 8 9
#> .. ..- attr(*, "names")= chr [1:6] "iap" "yes" "no" "refused" ...
#> ..$ tvhours : Named num [1:3] -1 98 99
#> .. ..- attr(*, "names")= chr [1:3] "iap" "dk" "na"