291/CH8/EX8.3b/eg8_3b.sce


1
2
3
4
5
6
7
8
9

noise_var = 4;
noise_mean= 0;
num = 5;
Xbar = 8.5;
u = 8;
statistic = sqrt(num/noise_var)*(Xbar - u);

prob = 2*cdfnor("PQ", -1*statistic , 0,1 );
disp(prob, "P-value is")