filename failas '/home/deividasriabcin0/sasuser.v94/Projektas/Task4/3data.dat';
data duomenys;
    infile failas;
    input SBSTREC $1-2 SBPRVPV $3-4 GNDR $5-6 GNDR2 $7-8 HINCTNTA $9-10 HINCFEL;
run;

data duom1;
set duomenys;
keep gndr gndr2;
if(gndr=9) then delete;
if(gndr2=6) or (gndr2=7) or (gndr=9) then delete;
run;

data duom2;
set duomenys;
keep SBSTREC SBPRVPV;
if(SBSTREC=9) or (SBSTREC=8) or (SBSTREC=7) then delete;
if(SBPRVPV=8) or (SBPRVPV=7) or (SBPRVPV=9) then delete;
if(SBSTREC=1) or (SBSTREC=2) then SBSTREC=2;
run;

data duom3;
set duomenys;
keep HINCTNTA HINCFEL;
if(HINCTNTA=77) or (HINCTNTA=88) or (HINCTNTA=99) then delete;
if(HINCFEL=8) or (HINCFEL=7) or (HINCFEL=9) then delete;
if(HINCFEL=1) or (HINCFEL=2) then HINCFEL=2;
run;

proc freq data = duom1;
          tables gndr*gndr2 / chisq;
run;

proc freq data = duom2;
          tables SBSTREC*SBPRVPV / chisq;
run;

proc freq data = duom3;
          tables HINCTNTA*HINCFEL / chisq;
run;