/*zad1*/
LIBNAME LAB1 'D:\MM';

/*zad2*/
data Lab1.akcje;
infile 'D:\MM\LAB1\akcje.dat' delimiter= ',';
input spolka $ data yymmdd10. kurs_otw kurs_min kurs_max kurs_zamkn;
format data yymmdd10.;
run;

/*zad3*/
proc import
datafile = "D:\MM\LAB1\Prognoza_ver2.xlsx" OUT=Lab1.Prognoza
DBMS= xlsx replace;
sheet= "Arkusz1";
getnames= yes;
run;

/*zad4*/
data Lab1.Akcje1;
set Lab1.akcje;
run;


data Lab1.Akcje1;
set Lab1.Akcje;
roznica=kurs_max-kurs_min;
lkz=lag(kurs_zamkn);
zmiana=((kurs_otw-lkz) / lkz);
WEEK = WEEK(data);
ROZNICA = kurs_otw - kurs_zamkn;
lspolka = lag(spolka);
if spolka = lspolka then do;
ZMIANA = lag(kurs_zamkn);
ZMIANA = ((kurs_otw - ZMIANA) / ZMIANA) ;
end;
format ZMIANA percent.;
output;
drop zmiana lspolka lkz;
run;