1 files changed, 17 insertions, 0 deletions
diff --git a/260/CH6/EX6.15/6_15.sce b/260/CH6/EX6.15/6_15.sce
new file mode 100644
index 000000000..272bc808d
--- /dev/null
+++ b/260/CH6/EX6.15/6_15.sce
@@ -0,0 +1,17 @@
+//Eg-6.15
+//pg-306           
+
+clear
+clc
+n=10;
+data=[4.5;6.7;5.5;7.2;4.3;4;5.2;6.3;6.5;7];
+m=mean(data);
+s=st_deviation(data);
+a=5;
+
+d=(m-a)/s*(n-1)^.5;
+if d<=2.26 & d>=-2.26 then
+    disp("null hypothesis :Ho:u=5mm is accepted.Therfore professors hypothesis is correct")
+else
+    disp("the value of d lies outside range.Therefore we will reject HO at 0.05 level of significance")
+end