* PS6.8 using DATA6-4 for Example 6.6 SAMPLE 1 49 READ(data6-4) WAGE EDUC EXPER AGE GENR LNWAGE=LOG(WAGE) GENR EDUC2=EDUC**2 * First estimate the linear model OLS WAGE EDUC2 EXPER * Estimate the log-linear model OLS LNWAGE EDUC2 EXPER / LOGLIN PRED=LWHAT GENR SGMASQ=$SSE/$DF GENR WHAT=EXP(LWHAT+(SGMASQ/2)) GENR ERROR=WAGE-WHAT GENR ESS=SUM(ERROR*ERROR) * SHAZAM DOES NOT HAVE THE CRITERIA COMMAND SEPARATELY STAT WAGE WHAT /PCOR GENR RSQ=0.608*0.608 SMPL 49 49 PRINT ESS RSQ * DELETE / ALL STOP