/* ---------------------------- Övning 17.4 ---------------------------- */

/*
Vid ett företag vill man pröva om "medellivslängden" hos ett skärverktyg är 3000 skär eller om det är mindre än 3000 skär.
Vilken slutsats bör man dra då signifikansnivån 0,05 används? Livslängden antas vara normalfördelad.
*/

data sg.ex17_4;
input length;
datalines;
2970
3020
3005
2900
2940
2925
;
run;

proc ttest data=sg.ex17_4 H0=3000;
var length;
run;

data sg.ex17_6;
input hour;
datalines;
510
600
800
810
690
640
610
780
600
420
740
600
750
780
900
910
780
620
420
420
750
720
680
390
650
540
640
450
600
840
;
run;

Proc ttest data=sg.ex17_6 H0=800 ALPHA=0.01;
var hour;
run;

data sg.ex17_9;
input before after;
datalines;
81	105
81	91
68	87
61	86
67	82
74	78
75	87
64	94
70	93
60	90
;
run;

proc ttest data=sg.ex17_9;
paired after*before;
run;

data sg.ex17_10;
input before after;
datalines;
83	61
88	84
106	95
131	121
84	83
87	79
129	92
97	88
92	69
91	90
124	115
99	100
;
proc print;
run;

proc ttest data=sg.ex17_10 ALPHA=0.1;
paired after*before;
run;

data sg.ex17_2;
input q1$ Count;
datalines;
ja  10
nej 150
;
proc freq data=sg.ex17_2 order=data;
weight Count;
tables q1 / binomial(p=.08);
*format Exposure ExpFmt. Response RspFmt.;
run;


data sg.ex17_5;
input q1$ Count_a Count_b;
datalines;
ja  180 195
nej 320 305
;
proc freq data=sg.ex17_5 order=data;
weight Count_b;
tables q1 / binomial(p=.4);
*format Exposure ExpFmt. Response RspFmt.;
run;


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

proc ttest data=b ;
paired kurs*ej_kurs;
run;