/* ---------------------------- Uppgift 2 ---------------------------- */
data t3;
input sex$ butik$ Count;
datalines;
kvinna CO 11
man CO 46 
kvinna HM 57
man HM 4
kvinna TM 6
man TM 32
kvinna MQ 26
man MQ 18
;
proc print;
run;

proc freq data=t3 order=data;
weight Count;
tables sex*butik  / chisq expected cellchi2 nocum norow nocol;
title 'Är butikerna lika attraktiva för kvinnor som för män?';
run;

goptions reset=all;

/* ---------------------------- Uppgift 5 ---------------------------- */

data t5;
input kurs ej_kurs;
d=kurs- ej_kurs;
datalines;
82 75 
73 71 
59 52
48 46
69 70
93 83
;
proc print;
run;

title 'Uppskattning av effekten av den förberedande kursen.';
proc ttest data=t5;
paired kurs*ej_kurs;
run;