* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; #delimit ; * This says that the semicolon denotes the end of a line of command. All lines must end with semicolons after this; set more 1; *This should stop the pauses; *To keep going regradless of errors, use DO mYFILE, nostop; /* *Feb. 28, 1996. May 29, 2002. Done using STATA . I could not read in all the variables-- there was not enough space-- so in this version I skip more of them. These are soime Bell Curve regressoins. */ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; infile int ID _skip(1) _skip(1) zAFQT89 zIQYr89 Wgt90 _skip(1) _skip(1) _skip(1) str8 Race4 _skip(1) _skip(1) _skip(3) _skip(1) _skip(1) _skip(1) _skip(2) byte BornWher _skip(1) _skip(1) _skip(1) _skip(1) byte EverWed _skip(1) _skip(3) _skip(1) byte Jail KInc89 KWage89 _skip(5) _skip(1) byte Pov89 str8 RelAtt _skip(1) str4 Sex _skip(3) _skip(1) _skip(1) zEd90 using nation.csv ; log using bell2,replace; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; encode Race4, gen(race4); drop Race4; encode RelAtt, gen(relatt); drop RelAtt; encode Sex, gen(sex); drop Sex; label list race4; label list relatt; label list sex; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; generate int black =race4 ==1 if race4 ~=. ; generate int hisp =race4 ==2 if race4 ~=. ; generate int OthRace =race4 ==3 if race4 ~=. ; drop race4; generate int monthly=relatt==1 if relatt ~=. ; generate int wkplus=relatt==6 if relatt ~=. ; generate int smonth=relatt==2 if relatt ~=. ; generate int infreq=relatt==3 if relatt ~=. ; generate int weekly=relatt==4 if relatt ~=. ; generate int nochurch=relatt==5 if relatt ~=. ; drop relatt; generate int gender=sex==2 if sex ~=. ; generate IQSquare = (zIQYr89+3)^2; generate EdSquare = (zEd90+5.5)^2; generate interact= (zIQYr89+3)*(zEd90+5.5); compress; save nation1.dta,replace; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; summarize KInc89 zIQYr89 BornWher zEd90 ; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; regress KInc89 zIQYr89 zEd90 [aweight=Wgt90]; regress KInc89 zIQYr89 zEd90 interact [aweight=Wgt90]; regress KInc89 zIQYr89 IQSquare zEd90 EdSquare [aweight= Wgt90]; regress KInc89 zIQYr89 IQSquare zEd90 EdSquare interact [aweight=Wgt90]; regress KInc89 gender BornWher [aweight=Wgt90]; regress KInc89 zIQYr89 zEd90 monthly wkplus weekly smonth infreq [aweight=Wgt90]; regress nochurch zIQYr89 zEd90 [aweight=Wgt90]; regress KInc89 zIQYr89 zEd90 black hisp OthRace BornWher [aweight=Wgt90]; regress zIQYr89 black hisp OthRace gender BornWher [aweight=Wgt90]; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--; log close;