/* 2018.02.05
   1. gyakorlat - SAS
   SZTE, Statisztika gyakorlati alkalmazasai
*/

/* 
SAS profil letrehozasa: https://odamid.oda.sas.com/SASODARegistration/
SAS Studio elerese online: https://odamid.oda.sas.com/SASStudio/
*/

/* Snippets-bol elore definialt eljarasok mintakodjai kattintassal bemasolhatok */
/*--Histogram--*/
title 'Distribution of Mileage';
proc sgplot data=sashelp.cars(where=(type ne 'Hybrid'));
  histogram mpg_city;
  density mpg_city / lineattrs=(pattern=solid);
  density mpg_city / type=kernel lineattrs=(pattern=solid);
  keylegend / location=inside position=topright across=1;
  yaxis offsetmin=0 grid;
run;

/* S meghajtorol (* Windows filekezelo: Halozat --> jobb egergomb -->
     Halozati meghajto csatlakoztatasa: \\sas\sas --> csatlakozas kulonbozo hitelesito adatokkal
     --> h-s azonosito es jeszo
   SAS eloadas mappaban: kekszalag2008_ere_jav2.xlsx
   SASStudio-ban: 
      Mappa letrehozas: Server files and folders --> Files --> jobb egergomb --> new Folder: a2018
      SAS konyvtar letrehozas: Libraries --> New library:
         name: la18 (pl.)   path: kivalasztjuk a Files-bol az elobbi mappankat: a2018
         Hogy legkozelebb is legyen meg a konyvtar es a mappa kozotti kapcsolat:
            re-create this library at start-up
   Snippets --> Import XLSX file
*/

/** Import an XLSX file.  **/
PROC IMPORT DATAFILE="/home/laszlo.anna/a2018/kekszalag2008_ere_jav2.xlsx"
		    OUT=la18.kek
		    DBMS=XLSX
		    REPLACE;
RUN;
/** Print the results. **/
PROC PRINT DATA=la18.kek; RUN;

/* Adatallomany tartalmanak/jellemzoinek kiiratasa */
proc contents data=la18.kek;
run;

/* Csak a szukseges valtozok megtartasa KEEP-pel uj adatllomanyban: kekjo 
   Ahol a sorok szama 525-nel kisebb (lt: "less than" <)
*/
data la18.kekjo (keep=kateg ys befut futott korrig);
 set la18.kek;
 if _N_ lt 525 then output;
run;

/* leiro statszika */
proc means data=la18.kekjo;
run;
/* hisztogram keszitese normalis eloszlas surusegfgv-evel */
proc univariate data=la18.kekjo;
 histogram / normal;
run;

/* korrelacio szamitas */
proc corr data=la18.kekjo;
run;