/*ZADANIE1*/
LIBNAME LAB1 'C:\Users\Magda\Desktop\LAB1';
/*ZADANIE2 !! Ucina nazwy spolek */
data akcje;
set LAB1.akcje;
run;
proc datasets lib=work;
copy out = Lab1 move;
select akcje;
quit;
data Lab1.akcje;
infile 'C:\Users\Magda\Desktop\LAB1\akcje.dat' delimiter= ',';
input spolka $ data yymmdd10. kurs_otw kurs_min kurs_max kurs_zamkn;
format data yymmdd10.;
run;
/*ZADANIE3*/
proc import
datafile = "C:\Users\Magda\Desktop\LAB1\Prognoza_ver2.xlsx" OUT=Lab1.Prognoza
DBMS= xlsx replace;
sheet = "Arkusz1";
getnames= yes;
run;
/*ZADANIE4 !! Problem z sortowaniem danych, odwrotnie daty, funkcja odwrotna do lag?  jak pracować na istniejących danych*/
data Lab1.Akcje1;
set Lab1.Akcje;
roznica=kurs_max-kurs_min;
zmiana=lag(kurs_zamkn);
zmiana=((kurs_otw-zmiana) / zmiana);
run;
proc sort data = Lab1.Akcje1;
          by spolka data;
    run;
data Lab1.Akcje1;
WEEK = WEEK(data);
ROZNICA = kurs_otw - kurs_zamkn;
if spolka = "COMARCH" then do;
ZMIANA = lag(kurs_zamkn);
ZMIANA = ((kurs_otw - ZMIANA) / ZMIANA) ;
end;
if spolka = "COMPUTER" then do;
ZMIANA = lag(kurs_zamkn);
ZMIANA = ((kurs_otw - ZMIANA) / ZMIANA) ;
end;
if spolka = "PROKOM" then do;
ZMIANA = lag(kurs_zamkn);
ZMIANA = ((kurs_otw - ZMIANA) / ZMIANA) ;
end;
if spolka = "SOFTBANK" then do;
ZMIANA = lag(kurs_zamkn);
ZMIANA = ((kurs_otw - ZMIANA) / ZMIANA) ;
end;
format ZMIANA percent.;
output;
run;

/* ZADANIE5 ! Uwaga, dane pobrane z akcje !! ( zmien  z akcje na akcje1)*/

data Lab1.Akcje2;
set Lab1.Akcje;
drop zmiana week roznica kurs_otw kurs_min kurs_max;
where spolka= "COMARCH" | spolka = "PROKOM";
run;

/*ZADANIE6 ! Jak formatowac date?*/
proc transpose data = Lab1.Akcje2 out = Lab1.Akcje2T;
by spolka;
id data;
var kurs_zamkn;
format data yymmdd10.;
run;

/*ZADANIE7*/
proc transpose data = Lab1.Akcje out = Lab1.Akcje3T;
by spolka;
var kurs_zamkn;
run;

proc means data = Lab1.Akcje3T;
run;