data one;
  input country $ wine mortality;
  cards;
Norway           2.8     6.2
Scotland         3.2     9.0
England          3.2     7.1
Ireland          3.4     6.8
Finland          4.3    10.2
Canada           4.9     7.8
UnitedStates     5.1     9.3
Netherlands      5.2     5.9
NewZealand       5.9     8.9
Denmark          5.9     5.5
Sweden           6.6     7.1
Australia        8.3     9.1
Belgium         12.6     5.1
Germany         15.1     4.7
Austria         25.1     4.7
Switzerland     33.1     3.1
Italy           75.9     3.2
France          75.9     2.1
;

data one; set one;
   y=mortality;
   x=wine;
   logy=log(y);
   logx=log(x);
run;

proc plot;
  plot y*x;
  plot logy*x;
  plot y*logx;
  plot logy*logx;
run;

proc reg data=one;
  model y=x;
  output out=checkyx residual=ehat predicted=yhat;
run;

proc plot data=checkyx;
  plot ehat*yhat;
run;

proc univariate data=checkyx plot;
  var ehat;
run;

proc reg data=one;
  model logy=x;
  output out=checklogyx residual=ehat predicted=yhat;
run;

proc plot data=checklogyx;
  plot ehat*yhat;
run;

proc univariate data=checklogyx plot;
  var ehat;
run;

proc reg data=one;
  model y=logx;
  output out=checkylogx residual=ehat predicted=yhat;
run;

proc plot data=checkylogx;
  plot ehat*yhat;
run;

proc univariate data=checkylogx plot;
  var ehat;
run;

proc reg data=one;
  model logy=logx;
  output out=checklogylogx residual=ehat predicted=yhat;
run;

proc plot data=checklogylogx;
  plot ehat*yhat;
run;

proc univariate data=checklogylogx plot;
  var ehat;
run;