/***********************************************************************/
/* Laboratorinis darbas Nr. 2                                          */
/* Data: 2019-10-04                                                    */
/* *********************************************************************/

Title 'Autorius: Edvin Saveljev, 2019-10-04';
Title2 'Laboratorinis darbas Nr. 2';

libname lab2 "/home/u43009087/sasuser.v94/lab2";

options papersize = A4;
options orientation = portrait;
options nodate;
/*failu importavimas*/
proc import OUT=lab2.CA4  DATAFILE="/home/u43009087/sasuser.v94/lab2/lab2_duom/CA4.xls"
    DBMS=XLS   REPLACE;
    SHEET="CA4";
    GETNAMES=YES;
run;
proc import OUT=lab2.CA6  DATAFILE="/home/u43009087/sasuser.v94/lab2/lab2_duom/CA6.xls"
    DBMS=XLS   REPLACE;
    SHEET="CA6";
    GETNAMES=YES;
run;
proc import OUT=lab2.CA8  DATAFILE="/home/u43009087/sasuser.v94/lab2/lab2_duom/CA8.xls"
    DBMS=XLS   REPLACE;
    SHEET="CA8";
    GETNAMES=YES;
run;
proc import OUT=lab2.CA10  DATAFILE="/home/u43009087/sasuser.v94/lab2/lab2_duom/CA10.xls"
    DBMS=XLS   REPLACE;
    SHEET="CA10";
    GETNAMES=YES;
run;
/*lenteliu kurimas be tam tikru eiluciu pagal varianta 20*/
proc sql;
create table lab2.CA4_20var as
select * from lab2.CA4
where id not between 40 and 55;
run;

proc sql;
create table lab2.CA6_20var as
select * from lab2.CA6
where id not between 40 and 55;
run;

proc sql;
create table lab2.CA8_20var as
select * from lab2.CA8
where id not between 40 and 55;
run;

proc sql;
create table lab2.CA10_20var as
select * from lab2.CA10
where id not between 40 and 55;
run;

/*TODO:sudeti titlus, kad isvedime butu aisku*/
PROC MEANS data=lab2.CA4_20VAR MAXDEC=2 ;
VAR x y;
title4 'Aprasomoji statistika';
run;


proc sgplot data=lab2.ca4_20var;
scatter y=x x=y ;
title4 'Tasku sklaidos diagrama';
run;

PROC MEANS data=lab2.CA6_20VAR MAXDEC=2 ;
VAR x y;
title4 'Aprasomoji statistika';
run;


proc sgplot data=lab2.ca6_20var;
scatter y=x x=y ;
title4 'Tasku sklaidos diagrama';
run;

PROC MEANS data=lab2.CA8_20VAR MAXDEC=2 ;
VAR x y;
title4 'Aprasomoji statistika';
run;


proc sgplot data=lab2.ca8_20var;
scatter y=x x=y ;
title4 'Tasku sklaidos diagrama';
run;

PROC MEANS data=lab2.CA10_20VAR MAXDEC=2 ;
VAR x y;
title4 'Aprasomoji statistika';
run;


proc sgplot data=lab2.ca10_20var;
scatter y=x x=y ;
title4 'Tasku sklaidos diagrama';
run;

/* klasterizavimas*/