**TI92P*main89\Rfitcomp.¥ZÔ() Prgm Local yy,yhat,n,i,errs,mmin,index © initialization for smallest error 10^100mmin:­1index © actual data Input "yvals data",yy Input "Number of fits",n For i,1,n © predicted values Input "yvals of fitted function",yhat © compute least squares error lse(yy,yhat)errs[i] Disp "Least Squares Error",errs[i] If errs[i]1 Then Pause Disp "Smallest Error",mmin,"for fitted function # ",index EndIf EndPrgmÊäåÜ%£