/* 2017.03.06
   5. gyakorlat - SAS 
   Minta gyakorlati ZH megoldasa
*/

/* Adatbeolvasas CSV file-bol */
/*
PROC IMPORT OUT= WORK.olimpia
            DATAFILE= "C:\Rwork\olimpia_2012.csv"
            DBMS=CSV REPLACE;
     GETNAMES=YES;
     DATAROW=8;
RUN;
PROC IMPORT OUT= WORK.vezetok
            DATAFILE= "C:\Rwork\Fejlodo_vezetok_kora_2011.csv"
            DBMS=CSV REPLACE;
     GETNAMES=YES;
     DATAROW=2;
RUN; 
*/

/* OnDemand kornyezetben, adatallomany feltoltesevel a szerverre */
PROC IMPORT OUT= WORK.olimpia
            DATAFILE= "/home/laszlo.anna/a2/olimpia_2012.csv"
            DBMS=CSV REPLACE;
     GETNAMES=YES;
     DATAROW=8;
RUN;
PROC IMPORT OUT= WORK.vezetok
            DATAFILE= "/home/laszlo.anna/a2/Fejlodo_vezetok_kora_2011.csv"
            DBMS=CSV REPLACE;
     GETNAMES=YES;
     DATAROW=2;
RUN;

/* Adatok leirasa */
proc contents data=olimpia ;
run ;
proc contents data=vezetok ;
run ;

/*** 2. feladat ***/
/* Leiro statisztikak, eloszlasok vizsgalata */
proc means data=olimpia;
run;
proc univariate data=olimpia;
 histogram gold Silver Bronze Total ;
run;

/*** 3.feladat ***/
/* Adatok rendezese csokkeno sorrendbe */
proc sort data=olimpia out=olimpia_gold;
 by descending gold ;
run ;
proc sort data=olimpia out=olimpia_total ;
 by descending total ;
run ;

/*** 4. feladat ***/
/* Valtozok kepzese, rendezes */
data szamitott ;
 set olimpia ;
 egyfoarany=gold/pop_2010 ; gdparany=gold/gdp_2011 ;
 egyfototal=total/pop_2010 ; gdptot=total/gdp_2011 ;
run ;
proc sort data=szamitott out=gdptot ;
 by descending gdptot ;
run ;
proc sort data=szamitott out=egyfotot ;
 by descending egyfototal ;
run ;
proc sort data=szamitott out=egyfogold ;
 by descending egyfoarany ;
run ;

/*** 5. feladat ***/
/* Statisztikai tabla */
proc tabulate data=szamitott ;
 class gold silver bronze total ;
 table gold all silver all bronze all total all, all="Érmek száma";
run ;

/*** 6.feladat ***/
/* Folytonos valtozok eloszlasa hisztgrammal */
proc univariate data=vezetok ;
 histogram ;
run ;

/*** 7. feladat ***/
/* Adatallomanyok parositasa - ehhez rendezes 
   elozetesen a kozos kulcs szerint, 
   majd tablazas */
proc sort data=olimpia ;
 by countryname ;
run ;
proc sort data=vezetok ;
 by countryname ;
run ;
data fejlolimpia ;
 merge olimpia (in=a)
       vezetok (in=b) ;
 by countryname ;
 if a=b ;
run ;
proc sort data=fejlolimpia ;
 by vezeto_kor ;
run ;

proc tabulate data=fejlolimpia;
 class vezeto_kor ;
 var gold silver bronze total;
 table vezeto_kor ,
       gold silver bronze total;
run ;