/*     originally  from page 696 of Reas book, Prob 17-22 of  10/16/07   */ ;
 data nlin;
 input X Y ;
 s=x**2 ;
  cards;
-1 1
-2 3 
0 1 
1 2 
1.5 4
;
  proc print;
  run;
 PROC  REG; model y=x;
  proc nlin data=nlin ; parms p=1.0 ;
  model y=p*x**2;
  output out=pp1 p=yhat r=resid ;run  ;
 /*  der.b0=1. ;*/ ; 
 /* der.b1=1. ; */ ;
  /*output out=pp1 p=predict r=resid ; */;
PROC  REG; model y=s;
  run;