* PS3.6 using data file DATA3-3 for application section 3.11 read(data3-3) YEAR PATENTS R_D ols PATENTS R_D / resid=ut predict=temp * round to one decimal genr fitted =int(0.5+(10*temp))/10 * compute forecast error genr error = PATENTS - fitted * compute absolute % error genr abspcerr = int(0.5+(10000*abs(error)/PATENTS))/100 * print values; see Table 3.4 print YEAR R_D PATENTS fitted print YEAR error abspcerr stop