/*1*/
proc print data=LAB8.Ads (obs=10);
run;

proc print data=LAB8.Ads1 (obs=10);
run;

/*2*/
proc means MEAN MIN MAX STD data=LAB8.Ads;
run;

proc means MEAN MIN MAX STD data=LAB8.Ads;
class ad;
run;

proc means MEAN MIN MAX STD data=LAB8.Ads1;
run;

proc means MEAN MIN MAX STD data=LAB8.Ads1;
class ad;
run;

/*3*/
proc sgplot data=LAB8.Ads (WHERE=(Ad in ('paper','display','people','radio')));
vbox Sales / category=Ad;
run;

proc sgplot data=LAB8.Ads1 (WHERE=(Ad in ('paper','display','people','radio')));
vbox Sales / category=Area group=Ad groupdisplay=cluster lineattrs=(pattern=solid) whiskerattrs=(pattern=solid);
run;

/*4->1 Sprawdzanie hipotezy 0*/
proc glm data=LAB8.Ads;
class ad;
model sales=ad /solution;
run;

proc glm data=LAB8.Ads1;
class ad;
model sales=ad/solution;
run;

proc glm data=LAB8.Ads1;
class ad;
model area=ad/solution;
run;

/* Model podstawowy */


proc sql;
  create table dataTable as
    select * from Lab8.Ads;
quit;

proc sql;
    create table dataTable as
        select *, mean(Sales) as micro
      from dataTable;
quit;

proc sql;
    create table dataTable as
        select *, mean(Sales) as adMean
      from dataTable
      group by Ad;

quit;

proc sql;
    create table dataTable as
        select *, micro-adMean as theta, Sales-adMean as epsilon
      from dataTable;
quit;

proc sql;
    create table dataTable as
        select *, micro+theta+epsilon as outY
      from dataTable;
quit;

proc sql;
    create table modelPodstawowy as
        select Ad, Sales, micro, theta, epsilon, outY
    from dataTable;
quit;

/* Model rozszerzony */

proc sql;
  create table dataTable1 as
    select * from Lab8.Ads1;
quit;

proc sql;
    create table dataTable1 as
        select *, mean(Sales) as micro
      from dataTable1;
quit;

proc sql;
    create table dataTable1 as
        select *, mean(Sales) as areaMean
      from dataTable1
      group by Area;
quit;

proc sql;
    create table dataTable1 as
        select *, micro-areaMean as alpha
      from dataTable1;
quit;


proc sql;
    create table dataTable1 as
        select *, mean(Sales) as adMean
      from dataTable1
      group by Ad;

quit;

proc sql;
    create table dataTable1 as
        select *, micro-adMean as theta
      from dataTable1;
quit;

proc sql;
    create table dataTable1 as
        select *, Mean(Sales) as adareaMean
      from dataTable1
      group by Ad, Area;
quit;

proc sql;
    create table dataTable1 as
        select *, Sales-adareaMean as epsilon
      from dataTable1;
quit;

proc sql;
    create table dataTable1 as
        select *, Sales-adareaMean as epsilon
      from dataTable1;
quit;


proc sql;
    create table dataTable1 as
        select *, micro+alpha+theta+epsilon as outY
      from dataTable1;
quit;

proc sql;
    create table modelRozszerzony as
        select Ad, Sales, micro, alpha, theta, epsilon, outY
    from dataTable1;
quit;