data z1;
    tekst='elko mordziaty';
    liczba=123;
    output;
    tekst="dobry wieczor, witam pana";
    liczba=3456;
    output;
run;

data z2;
    x1=1;
    x2=2;
    x3=3;
    x4=4;
    srednia1 = mean(of x1-x4);
    srednia2 = mean(x1,x2,x3,x4);
    srednia3 = mean(x1,.,.,x4);
run;

data z3;
    x1="Poznańska, Warszawa";
    miasto1 = scan(x1, 2);*rozdzieli stringa na czesci, zarowno po spacji jak i przecinku, 2 argument to co chcemy wybrac z tego rozdzielonego stringa
    miasto2 = scan(x1, 13, 2); *nie dziala;
    miasto3 = substr(x1, 1, 10);*od 1 znaku wytnie 10 kolejnych;
    miasto4 = substr(x1, 2);*od 2 znaku wytnie wszystkie do konca;
    miasto5 = cat(x1, "ala ma kota", "2222"); *doklei na koncu liczbe 2, czyli powstanie nam string;
run;

data z4;
    set sashelp.cars;
run;

proc sort data=z4;
    by DESCENDING msrp;
run;

data Tabela_X;
     input id wiek;
     datalines;
      1 74
      2 80
      3 13
      4 15
      5 56
      6 28
      ;
run;
data Tabela_Y;
     input identyfikator waga;
     datalines;
      1 4
      2 9
      3 2
      4 6
      ;
run;
proc sql;
    create table wyniki as
    select a.*, b.waga from Tabela_X as a left join Tabela_Y as b
    on a.ID=b.identyfikator;
run;

data tabela1;
     input age cnt;
     datalines;
      20 5
      20 4
      30 3
      30 2
      50 1
run;

data tabela2;
set tabela1;
by age;
if last.age then output; *https://blogs.sas.com/content/iml/2018/02/26/how-to-use-first-variable-and-last-variable-in-a-by-group-analysis-in-sas.html;
run;

data tabela3;
input imie$ wzrost;
datalines;
    Anna 167
    Ewa 172
    Jan 187
    Beata 183
    Kamil 194
run;

data wynik(drop=wzrost);
set tabela3;
x_sum=sum(wzrost);
if imie='Kamil' then output;
drop imie;
run;

data zad13 (rename=(srednia=srednia_rename)); *jak zmienic nazwe zmiennej;
    set sashelp.cars(keep = make type invoice);
    where Type = 'Sedan';
    by make;
    if first.make then
        count = 0;
    if first.make then
        sum = 0;
    count + 1;
    sum + invoice;
    if last.make;
    drop type invoice;
    srednia = sum/count;
run;

proc sort data=zad13;
    by descending srednia;
run;

data _data_dzis;
     input data;
     datalines;
      210216
      ;
run;

proc sql;
create table data_dzis1 as
select data_dzis, data_dzis format mmddyy10. as data_poprawna
from data_dzis;
quit;

data string_functions;
    a = lowcase("STRING");
    b = upcase("string");
    c = compress("this $ is & a demo", "$&");
    d = find("String", "S");
    e = substr("string", 1, 3);
    mediana = median(1, 2, 3, 4, 5, 5, 5, 76);
    srednia = mean(1, 2, 3, 4, 5, 5, 5, 76);
run;

data tabela3;
input imie$ wzrost;
datalines;
    Anna 167
    Ewa 172
    Jan 187
    Beata 183
    Kamil 194
run;

data zad3_2;
set tabela3;
nazwisko = "edward";
run;

data daty;
    moja_data = today();
    rok = year(moja_data);
    rok2 = scan(moja_data, 3);
run;

data zad9;
    input typ$ ilosc total;
    datalines;
        AA 200 500
        BB 300 500
    ;
run;

data zad9rozw;
set zad9;
udz_pct = cat(ilosc/total*100, "%");
format udz_pct2 percent7.0;
udz_pct2 = ilosc/total;
run;

data miasta;
    input miasto$ grupa$ stawka;
    datalines;
    WAW A 100
    KRAK B 200
    POZN B 200
    WAW B 300
    WAW C 500
    KRAK A 100
run;

proc sort data=miasta;
by miasto;
run;

data zestawienie(keep=miasto suma_stawka);
set miasta;
where miasto='WAW';
by miasto;
if first.miasto then suma_stawka=0;
suma_stawka+stawka;
if last.miasto then output;
run;

data zadanie12;
    input Age ID;
    datalines;
    20 15
    20 14
    30 316
    30 111
    50 5
run;

data zad12tabela;
set zadanie12;
n=N;
if n=4 then output;
run;

data miast2a;
    input miasto$ grupa$ stawka;
    datalines;
    WAW A 100
    KRAK B 200
    POZN B 200
    WAW B 300
    WAW C 400
    KRAK A 100
    ;
run;

proc sql;
create table tabela_wynik as
select Miasto, sum(stawka) as suma_stawka
from miast2a
group by miasto
having suma_stawka>=300;

data Tabela1_zad11;
    input id wiek;
    datalines;
    1 25
    2 25
    3 35
    4 35
    5 55
    ;
run;

data Tabela2_zad11;
    input id plec$;
    datalines;
    1 K
    4 M
    5 K
    ;
run;

data zad11_3_2;
merge Tabela1_zad11 (in=a) Tabela2_zad11 (in=b);
by id;
if a=b;
run;