* Working the second part of CP # 7, Econ. 435, 2000
set nocolor
read(a:data7-2) WAGE EDUC EXPER AGE GENDER RACE CLERICAL &
MAINT CRAFTS
ols wage educ exper gender/resid=r
diagnos/het
* Doing a Park test to find "delta"
genr lr2=log(r**2)
genr leduc=log(educ)
ols lr2 leduc
* Doing WLS=FGLS
genr w=1/(educ**2)
ols wage educ exper gender/weight=w
* Doing WLS "manually"
genr nwage=wage/educ
genr nexper=exper/educ
genr ngender=gender/educ
genr nint=1/educ
ols nwage nint nexper ngender
diagnos/het
* Looking at the LOGLIN
genr lwage=log(wage)
ols lwage educ exper gender/resid=rr loglin
diagnos/het
* Note:  the following residual plots were not
* part of the batch file
* plot r educ/vga
* plot rr educ/vga