* PS7.3, using DATA7-3, to duplicate Table 7.2
read(data7-3) price sqft bedrms baths pool famroom firepl
ols price sqft
* This is model E in Table 7.2 
ols price sqft bedrms baths pool famroom firepl 
gen1 ESSU=$SSE
gen1 DFU=$DF
* omit variable with highest pvalue, one at a time 
ols price sqft bedrms pool famroom firepl 
ols price sqft pool famroom firepl 
ols price sqft pool famroom
* Model F 
ols price sqft pool
gen1 ESSR=$SSE
gen1 DFR=$DF
gen1 NR=DFR-DFU
gen1 Fc=(ESSR-ESSU)*DFU/(ESSU*NR)
distrib Fc / type=F df1=NR df2=DFU
stop