/* Day 4 Quiz Answers */

libname sasdata2 "c:\temp\sasdata2";

/*Get 75th percentile of salary*/
proc univariate data = sasdata2.bank;
   var salnow;
run;

/*Create new variables*/
data bank2;
   set sasdata2.bank;
   if salnow > 14820 then top25 = 1;
   else if salnow <= 14820 then top25 = 0;
   if jobcat in (1,2) then jobcat_new = 1;
   else jobcat_new = 0;
run;

/*Run logistic regression model*/
proc logistic data = bank2 descending;
   model top25 = sex work jobcat_new;
run;

proc genmod data = sasdata2.baseball;
   class league;
   model no_home = cr_home league / 
	dist = poisson link = log type3;
run;

proc genmod data = sasdata2.baseball;
   class league;
   model no_home = cr_home league / 
	dist = negbin link = log type3;
run;