/* 2018.02.26.
   4. gyakorlat - SAS
   Minta ZH megoldasa
*/

/*********** 1. feladat ***********/
/** Import the CSV file.  **/
PROC IMPORT DATAFILE='/home/laszlo.anna/a2018/Fejlodo_vezetok_kora_2011.csv'
            OUT=WORK.vezetok
            DBMS=CSV
            REPLACE;
RUN;

/** Print the results. **/
PROC PRINT DATA=WORK.vezetok; RUN;
/** Unassign the file reference.  **/

proc means data= vezetok ; run ;

/* olimipia adatok beolvasasa - elozetes filefeltoltes utan a szerverre */
PROC IMPORT DATAFILE='/home/laszlo.anna/a2018/olimpia_2012.csv'
            OUT=WORK.olimpia
            DBMS=CSV
            REPLACE;
RUN;
PROC PRINT DATA=WORK.olimpia; RUN;
proc means data= olimpia ; run ;

/*********** 2. feladat ***********/
proc univariate data=olimpia;
 histogram gold Silver Bronze Total ;
run;

/*********** 3. feladat ***********/
proc sort data=olimpia out=ototal ;
 by descending total ;
run ;

proc sort data=olimpia out=ogold ;
 by descending gold ;
run ;

/*********** 4. feladat ***********/
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=gdptotsort ;
 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 ***********/
proc tabulate data=olimpia ;
 class gold silver bronze total;
 table gold all silver all bronze all total all,
        all="Érmek száma" ;
run ;
proc tabulate data=olimpia ;
 class gold silver bronze total;
 table all="Érmek száma" ,
       gold all silver all bronze all total all ;
run ;

/*********** 6. feladat ***********/
proc univariate data=vezetok ;
 histogram ;
run ;
/*
proc sort data=olimpia out=ocountry ;
by descending countryname;
run ;
proc sort data=vezetok out=vcountry ;
by descending countryname;
run ;

data olimvez ;
merge ocountry (in=o) vcountry (in=v) ;
by countryname ;
if o=v ;
run ; */

/*********** 7. feladat ***********/
proc sort data=olimpia out=sorto;
 by countryname ;
run ;
proc sort data=vezetok out=sortv;
 by countryname ;
run ;
data fejlolimpia ;
 merge sorto (in=a)
       sortv (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 ;