capture log close
log using "socy699c-hw2-sociability.smcl", replace smcl

/* Sex dummy */
recode sex (1=0 Male) (2=1 Female), generate(sex1)
drop sex
rename sex1 sex
label variable sex "Respondent's Sex"

*/ True race dummy */
recode race (1=0 White) (2=1 Black) (3=.), generate(race1)
drop race
rename race1 race
label variable race "Respondent's Race"

local social "socbar socrel socommun socfrend"
tab1 `social'

foreach var of varlist socrel socommun socfrend socbar {
  #delimit ;
  recode `var' (1=7 "ALMOST DAILY")
               (2=6 "SEV TIMES A WEEK")
               (3=5 "SEV TIMES A MNTH")
               (4=4 "ONCE A MONTH")
               (5=3 "SEV TIMES A YEAR")
               (6=2 "ONCE A YEAR")
               (7=1 "NEVER"), gen(`var'1)
  ;
  #delimit cr
}

gen sociability1=(socrel1+socommun1+socfrend1+socbar)-3
label variable sociability1 "Sociability Scale (1-25)"
drop socbar1 socrel1 socommun1 socfrend1

/* This works as well to create an average sociability measure */
#delimit ;
recode socrel socommun socfrend socbar
  (1=7) (2=6) (3=5),
  prefix(x)
  label(socrel);
#delimit cr

generate sociability2=(xsocrel+xsocommun+xsocfrend+xsocbar)/4
drop xsocrel xsocommun xsocfrend xsocbar


/* Graph the sociability measure */
graph twoway (hist sociability, discrete name(hist, replace))
kdensity sociability, bw(4) name(kernel, replace)


/* Save the data */
save socy699c-data-sociability.dta, replace

log close