/*
 * Stat.Alfa Obligatorisk opgave 3
 * 
 * 10.12.04 - Jacob Andersen
 * 
 */

title1 'Opgave 3a';

/* Data til opgave 3a */

data opg3a;
  input fakultet$ kon$ optaget$ antal;
  cards;
    Naturvidenskab Mænd Optaget 198
    Naturvidenskab Mænd Afvist 242
    Naturvidenskab Kvinder Optaget 52
    Naturvidenskab Kvinder Afvist 61
    Humaniora Mænd Optaget 16
    Humaniora Mænd Afvist 109
    Humaniora Kvinder Optaget 79
    Humaniora Kvinder Afvist 431
  ;


proc sort data=opg3a;
  by fakultet;

/* Test for kønsforskel */

title2 'Kønsforskel';

proc freq data=opg3a order=data;
  weight antal;
  tables optaget*kon/expected chisq norow nocol nopercent;
  by fakultet;
run;

/* Test for fakultetsforskel */

title2 'Fakultetsforskel';

proc freq data=opg3a order=data;
  weight antal;
  tables optaget*fakultet/expected chisq norow nocol nopercent;
run;

/* Data til spørgsmål 3 */

data opg3a3;
  input obs forv;
  cards;
    250 276.5
    303 276.5
  ;

/* Test for om ss for optagelse på NAT er ½ */

title2 'Sandsynlighed 1/2 for naturvidenskabelig optagelse';

%include '~statbib/sasmacros/fittest.mac';
%fittest(data=opg3a3,d=0);
run;






title1 'Opgave 3b';
title2; 

/* Data til opgave 3b */

data opg3b;
  input x m;
  cards;
    175 66
    186 66
    212 66
  ;

/* Test for at middelværdien er ens i hver tredjedel,
 * samt estimat og konfidensintervaller */

%include '~statbib/sasmacros/poisson.mac';
%poisson(data=opg3b,obs=x,m=m);


run;