hw3STA5166

hw3STA5166 - Jaime Frade STA5166 Chapter 3.2(a Summary Will...

Info iconThis preview shows pages 1–4. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Jaime Frade STA5166 Chapter 3.2 (a ) Summary : Will try to test the hypothesis to see if there exists a significant difference between the mean values of levels of asbestos fiber in the air of the industrial plant with and without S-142 chemical. From the comparative trail in the plant, the four consecutive readings had a mean difference of -3.5. The null hypothesis is that with or without S-142, the asbestos levels will not change, the alternative is that with S-142, the level will decrease since the mean difference is negative. To test this, used as a reference the past observations of asbestos levels without S-142. From the dataset, obtained a probability that 1/109 (=0.0091743119) that there exists a mean difference less that the comparative trail. Since this probability is less that 5%, we reject the null hypothesis and accept the salesman claim that S-142 is beneficial to reduce the level of asbestos levels in the air of the industrial plant. Jaime Frade STA5166 CODE data=scan("C:/Documents and Settings/Jaime/Desktop/FALL07/STA5166/BHH2- Data/datahw3.dat") data n1=0 Mean1wout = mean(c(8,6)) Mean2with = mean(c(3,4)) diff_means = Mean2with-Mean1wout y = c(rep(NA, (109))) x = c(rep(NA, (109))) for(i in 1:111){ y[i] = (data[i]+data[i+1])/2} for(j in 1:109){ x[j] = y[j+2] - y[j]; if(x[j]<= diff_means) n1=n1+1} x sort(x) n1 diff_means n1/109 OUTPUT > data=scan("C:/Documents and Settings/Jaime/Desktop/FALL07/STA5166/BHH2- Data/datahw3.dat") Read 112 items > data [1] 9 10 8 9 8 8 8 7 6 9 10 11 9 10 11 11 11 11 10 11 12 13 12 13 12 [26] 14 15 14 12 13 13 12 13 13 13 13 13 10 8 9 8 6 7 7 6 5 6 5 6 4 [51] 5 4 4 2 4 5 4 5 6 5 5 6 5 6 7 8 8 8 7 9 10 9 10 9 8 [76] 9 8 7 7 8 7 7 7 8 8 8 8 7 6 5 6 5 6 7 6 6 5 6 6 5 [101] 4 3 4 4 5 5 6 5 6 7 6 5 > n1=0 > Mean1wout = mean(c(8,6)) > Mean2with = mean(c(3,4)) > diff_means = Mean2with-Mean1wout > y = c(rep(NA, (109))) > x = c(rep(NA, (109))) > for(i in 1:111){ y[i] = (data[i]+data[i+1])/2} > for(j in 1:109){ x[j] = y[j+2] - y[j]; + if(x[j]<= diff_means) n1=n1+1} > x [1] -1.0 -0.5 -0.5 -0.5 -0.5 -1.5 0.0 3.0 3.0 0.5 -1.0 0.5 1.5 0.5 0.0 [16] -0.5 -0.5 1.0 2.0 1.0 0.0 0.0 0.5 2.0 1.5 -1.5 -2.0 0.0 0.0 -0.5 [31] 0.5 0.5 0.0 0.0 -1.5 -4.0 -3.0 -0.5 -1.5 -2.0 0.0 0.0 -1.5 -1.0 0.0 [46] 0.0 -0.5 -1.0 -0.5 -0.5 -1.5 -1.0 1.5 1.5 0.0 1.0 1.0 -0.5 0.0 0.5 [61] 0.0 1.0 2.0 1.5 0.5 -0.5 0.0 2.0 1.5 0.0 0.0 -1.0 -1.0 0.0 -1.0 [76] -1.5 0.0 0.5 -0.5 -0.5 0.5 1.0 0.5 0.0 -0.5 -1.5 -2.0 -1.0 0.0 0.0 [91] 1.0 1.0 -0.5 -1.0 -0.5 0.5 0.0 -1.5 -2.0 -1.0 0.5 1.0 1.0 1.0 0.5 [106] 0.0 1.0 1.0 -1.0 > x Jaime Frade STA5166 [1] -1.0 -0.5 -0.5 -0.5 -0.5 -1.5 0.0 3.0 3.0 0.5 -1.0 0.5 1.5 0.5 0.0 [16] -0.5 -0.5 1.0 2.0 1.0 0.0 0.0 0.5 2.0 1.5 -1.5 -2.0 0.0 0.0 -0.5 [31] 0.5 0.5 0.0 0.0 -1.5 -4.0 -3.0 -0.5 -1.5 -2.0 0.0 0.0 -1.5 -1.0 0.0 [46] 0.0 -0.5 -1.0 -0.5 -0.5 -1.5 -1.0 1.5 1.5 0.0 1.0 1.0 -0.5 0.0 0.5 [61] 0.0 1.0 2.0 1.5 0.5 -0.5 0....
View Full Document

This note was uploaded on 12/14/2011 for the course STAT 5166 taught by Professor Staff during the Fall '11 term at FSU.

Page1 / 12

hw3STA5166 - Jaime Frade STA5166 Chapter 3.2(a Summary Will...

This preview shows document pages 1 - 4. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online