*loeme sisse skooride faili;
data SASUSER.Skoorid ;
      infile 'C:\Users\Raul\Google Drive\SNK\Koolitus\Aegread\skoorid.csv' delimiter = ','  DSD  firstobs=2 ;
      input jrk skoor ;
 run;
*tekitame graafiku;
 proc gplot data=sasuser.skoorid;
 symbol i=join v=dot h=1.5;*i=join ühendab sirlõikudega,i=spline käsib joonistada sujuvalt muutuva joone abil. 
v=dot ütleb, et andmestikus olevatele väärtustele vastavad punktid tuuakse joonisel välja suurema pallikesena.
h=0.5 abil saab näidata pallikese suurust;
 plot skoor*jrk; *y-koordinaat ennem ja x-koordinaat pärast;
 run;
 proc summary data=sasuser.skoorid mean median std print;
 var skoor;
 run;
 *rida nr 2;
data SASUSER.SKP ;
      infile 'C:\Users\Raul\Google Drive\SNK\Koolitus\Aegread\RAA0012m.csv' delimiter = '09'x  DSD  firstobs=1;
	  retain abi 0; *abimuutuja kuupäeva tekitamiseks;
      date=intnx("qtr","01jan1995"d,abi);
      input aasta $ kvartal $ skp ;
	  abi=abi+1;
	  drop abi;
	  format date yyqc6.; *see on mugavuse jaoks. Määrab, mis kujul kuupäevi meile näidatakse, kui me andmeid vaatame;
	  if skp ^= .; * puuduvate väärtustega ridu lõpust pole vaja;
 run;
*vaatame graafikut;
 proc gplot data=sasuser.skp;
 symbol i=join v=dot h=1.5;*i=join ühendab sirlõikudega,i=spline käsib joonistada sujuvalt muutuva joone abil. 
v=dot ütleb, et andmestikus olevatele väärtustele vastavad punktid tuuakse joonisel välja suurema pallikesena.
h=0.5 abil saab näidata pallikese suurust;
 plot skp*date; *y-koordinaat ennem ja x-koordinaat pärast;
 run;

 *kinganumber ja pikkus (tollides);
data SASUSER.king ;
      infile 'C:\Users\Raul\Google Drive\SNK\Koolitus\Aegread\shoesize.csv' delimiter = ',' DSD  firstobs=2;
      input jrk sugu $ kinganr pikkus ;
 run;
 *vaatame joonist;
 proc gplot data=sasuser.king;
 symbol i=none;
 plot pikkus*kinganr;
 run;
 quit;

 *korrelatsioon;
 proc corr data=sasuser.king;
 var kinganr pikkus;
 run;
 *üsna tugev korrelatsioon;
 proc reg data=sasuser.king;
 model pikkus=kinganr/p;
 run;
*ühe aegrea abil teise prognoosimine;
*kõigepealt rahvastikuarv;
 data SASUSER.rahvastik ;
      infile 'C:\Users\Raul\Google Drive\SNK\Koolitus\Aegread\RV021.csv' delimiter = '09'x DSD  firstobs=5 obs=31;
	  retain abi 0; *abimuutuja kuupäeva tekitamiseks;
      date=intnx("year","01jan1995"d,abi);*märgime rahvaarvu kolm aastat hilisema aja juurde;
      input tmp $ aasta $ rahvaarv ;
	  abi=abi+1;
	  drop abi tmp;
	  format date year4.;
 run;
data SASUSER.SKP2 ;
      infile 'C:\Users\Raul\Google Drive\SNK\Koolitus\Aegread\RAA0012.txt' delimiter = ' '  firstobs=13 obs=36;
	  retain abi 0; *abimuutuja kuupäeva tekitamiseks;
      date=intnx("year","01jan1995"d,abi);
      input aasta  skp ;
	  abi=abi+1;
	  drop abi;
	  format date year4.; *see on mugavuse jaoks. Määrab, mis kujul kuupäevi meile näidatakse, kui me andmeid vaatame;
	  if skp ^= .; * puuduvate väärtustega ridu lõpust pole vaja;
 run;