blob: cd5f18695a4619bce416591325c7c27992443ebf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
//Caption: Tests of Hypotheses Concerning variances
//Two tailed Chi-square Tests Concerning Single Population Variance
//Test 2: Ho: Var >= k and H1: Var <k
//Example8.30
//Page284
clc;
Var = 0.64; //popualtion variance of the weight of the cement bags in Kg
n = 8;// sample size
S2 = 0.36;//sample variance of the weight of the cement bags in Kg
Alpha = 0.01;
Test = input('Enter the type of test=')
Xchi = ((n-1)*S2)/Var;//chi-square statistic to test the variance
Xchi_stand = Chi_test(Alpha,Test)
disp(Xchi,'The calculated Value chi-square value =')
disp(Xchi_stand,'The table value of chi-square test =')
if (Test==1) then
if(Xchi< Xchi_stand) then
disp('It falls in the Acceptance Region')
disp('Then Null Hypothesis Ho should be Accepted')
elseif(Xchi > Xchi_stand) then
disp('It falls in the Rejection Region')
disp('Then Null Hypothesis Ho should be Rejected')
end
elseif (Test==2) then
if(Xchi >Xchi_stand)
disp('It falls in the Acceptance Region')
disp('Then Null Hypothesis Ho should be Accepted')
elseif(Xchi<Xchi_stand)
disp('It falls in the Rejection Region')
disp('Then Null Hypothesis Ho should be Rejected')
end
end
//Result
//Enter the type of test=2
//
// The calculated Value chi-square value =
//
// 3.9375
//
// The table value of chi-square test =
//
// 1.239
//
// It falls in the Acceptance Region
//
// Then Null Hypothesis Ho should be Accepted
|
