* Required macros: 'releff';
* calc: mux=52, n=10, N=486;
* oranges: taux=1800, n=10, N=? (use N=100000);
* housing: mux=700, n=13, N=47;

data calc;
  input student achieve final @@ ;
  cards ;
  1 39 65   2 43 78    3 21 52 
  4 64 82   5 57 92    6 47 89 
  7 28 73   8 75 98    9 34 56
  10 52 75 
   ;
run;
data oranges;
  input orange sugar weight @@ ;
  cards ;
 1 .021 .40  2 .030 .48  3 .025 .43  
 4 .022 .42  5 .033 .50  6 .027 .46 
 7 .019 .39  8 .021 .41  9 .023 .42 
 10 .025 .44
  ;
run;
data msa;
  input city $ cost2002 cost1994 ;
  cards ;
  Anaheim 1363 1087
  Buffalo 670 571
  Charlotte 761 518
  Columbus 746 612
  Dallas 991 770
  FortWorth 798 655
  KansasCity 728 552
  Miami 842 710
  Milwaukee 849 656
  Phoenix 885 636
  Portland 986 676
  Riverside 934 773
  SanDiego 1167 829
  ;
  run;

proc sgplot data=calc;
scatter x=achieve y=final;
proc sgplot data=oranges;
scatter x=weight y=sugar;
proc sgplot data=msa;
scatter x=cost1994 y=cost2002;
run;


%releff(data=calc,npop=486,y=final,x=achieve);
%releff(data=oranges,npop=100000,y=sugar,x=weight);
%releff(data=msa,npop=47,y=cost2002,x=cost1994);