* PS4.5, using DATA4-5, for Table 4.5 and Application in Section 4.7 
read(data4-5) wlfp yf ym educ ue mr dr urb wh
*  Model A  --  most general specification
ols wlfp yf ym educ ue mr dr urb wh 
genr ESSU=$SSE
genr DFU=$DF
*  Model B  -- omit mr
ols wlfp yf ym educ ue dr urb wh 
*  Model C  --  omit both ym and mr
ols wlfp yf educ ue dr urb wh 
genr ESSR=$SSE
genr DFR=$DF
genr NR=DFR-DFU
genr Fc=(ESSR-ESSU)*DFU/(ESSU*NR)
smpl 1 1
distrib Fc / type=F df1=NR,df2=DFU
* PS4.5, using DATA4-5, for Table 4.5 and Application in Section 4.7 
read(data4-5) wlfp yf ym educ ue mr dr urb wh
*  Model A  --  most general specification
ols wlfp yf ym educ ue mr dr urb wh 
genr ESSU=$SSE
genr DFU=$DF
*  Model B  -- omit mr
ols wlfp yf ym educ ue dr urb wh 
*  Model C  --  omit both ym and mr
ols wlfp yf educ ue dr urb wh 
genr ESSR=$SSE
genr DFR=$DF
genr NR=DFR-DFU
genr Fc=(ESSR-ESSU)*DFU/(ESSU*NR)
smpl 1 1
distrib Fc / type=F df1=NR,df2=DFU
stop