summaryrefslogtreecommitdiff
path: root/331/CH7/EX7.13/Example_7_13.sce
blob: 6b26e36d3b27a3cb194f996cc60482fb94d27156 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//Caption: Confidence Interval for Proportion
//Example7.13
//Page217

clc;
p = 0.40;// 40% of retailers enhance weekly sales 
q = 1-p;
n =  64;// number of samples
//pbar: proportion of success
pbar = 32/n;//32 out of 64 are having enhanced sales after displaying advertisement
Var = (p*q)/n; //variance
Std = sqrt(Var);
alpha = 0.1;
alpha = alpha/2;
z = standard_normal_zstat(alpha);
CI = [pbar-z*Std,pbar+z*Std];
disp(CI,'Confidence Interval of Proportion CI=')
//Result
//Confidence Interval of Proportion CI=   
// 
//    0.3995709    0.6004291