data fieldgoals;
/*Nuskaitome duomenis*/
infile '/home/erikasa320/fieldgoal.dat.txt';
input YARDAGE SUCCESS WEEK;
run;
/*Sudarome dvinares logistines regresijos modeli, priskirdami savaite klasei*/
proc logistic data = fieldgoals;
class WEEK;
model SUCCESS = YARDAGE WEEK / ctable selection=stepwise
outroc=roc;
run;
/*Pasalinam statistiskai nereiksmingus kintamuosius*/
data koreguoti;
set fieldgoals;
if (WEEK = 1)
then WEEK1 = 1;
else if (WEEK = 11)
then WEEK1 = 2;
else if (WEEK = 14)
then WEEK1 = 3;
else WEEK1 = 0;
run;
/*Atnaujintas logistines regresijos modelis*/
proc logistic data = koreguoti;
class WEEK1;
model SUCCESS(event = '1') = YARDAGE WEEK1 / ctable selection=stepwise
outroc=roc;
run;