options formchar="|----|+|---+=|-/\<>*";
title;

libname sasdata2 V9 "C:\temp\sasdata2";

/** Question 1 **/
goptions reset=all;

proc contents data=sasdata2.baseball varnum;
run;

proc means data=sasdata2.baseball;
run;

proc gplot data=sasdata2.baseball;
 plot salary * yr_major;
 plot salary * cr_atbat;
 plot salary * cr_hits;
run; quit;

proc corr data=sasdata2.baseball;
var salary yr_major cr_atbat cr_hits;
run;

proc reg data=sasdata2.baseball;
 model salary = yr_major cr_atbat cr_hits 
    /vif tol collin;
 plot rstudent. * predicted.;
run;quit;

proc reg data=sasdata2.baseball;
 model salary = yr_major cr_hits 
    /vif tol collin;
 plot rstudent. * predicted.;
run;quit;

/* Question 2 **/
data bank;
 set sasdata2.bank;
 logsalnow = log10(salnow);
run;

goptions reset=all;

symbol1 color=black value=dot interpol=rl line=1;
symbol2 color=black value=circle interpol=rl line=2;

proc gplot data=bank;
 plot logsalnow * work = sex;
 where jobcat=1;
run; quit;

proc glm data=bank;
 class sex;
 model logsalnow = work sex work*sex/solution;
 output out=glmdat rstudent=rstudent r=resid p=pred;
 where jobcat=1;
run; quit;

goptions reset=all;


proc glm data=bank;
 class sex;
 model logsalnow = work sex/solution;
 lsmeans sex;
 output out=glmdat rstudent=rstudent r=resid p=pred;
 where jobcat=1;
run; quit;

proc gplot data=glmdat;
 plot rstudent * pred;
run; quit;

proc univariate data=glmdat;
 var resid;
 histogram /normal (mu=est sigma=est);
 qqplot /normal (mu=est sigma=est);
run;