proc print data=sashelp.air;
run;

data med.lab1;
input marka $ rok liczba;
datalines;
FORD 2015 13221
BWM 2123 3321321
FORD 2016 232
BWM 2014 10
;
run;


data med.cars;
INFILE 'C:\medlib\cars.txt' DELIMITER='|' FIRSTOBS=2;
INPUT marka $ model $ rok paliwo $ spalanie;
pelna_data = MDY(1, 1, rok);
format pelna_data  yymmdd10.;
RUN;

data med.cars2(drop=rok model);
set med.cars;
run;

data med.cars2(keep=marka model);
set med.cars;
run;

data med.cars2;
set med.cars;
if (spalanie >= 5.0) then do;
 output;
end;
run;

proc sort data=med.cars out=med.sorted_cars;
 by spalanie;
run;

/* musi byc posortowane wedlug w tym przypadku marka*/
proc transpose data=med.sorted_cars prefix='ROK 'n out=med.trans_cars;
by marka;
id rok;
var spalanie;
run;


/* generowanie statystyk opisowych*/
proc means data=med.cars;
 class marka;
 output out=med.means_samo sum(spalanie) = suma_spalania mean(spalanie)=wart_sr_spalanie;
run;

/* petla (inkrementacja jest w by X)*/
data med.calendar(drop=sd ed);
format data yymmdd10.;
sd='01-NOV2017'd;
ed='01_DEC2017'd;

do data=sd by 1 to ed;
 output;
end;
run;

data med.calendar;
format data yymmdd10.;
sd='01-NOV2017'd;
ed='01_DEC2017'd;

do data=sd by 1 to ed;
 rok=year(data);
 weekday_number = weekday(data);
 if (weekday_number = 1 or weekday_number = 7) then do;
  weekend='TAK';
 end;
 else do;
  weekend='NIE';
 end;
 output;
end;

drop sd ed;
run;