In: Math
An outbreak of Salmonella-related illness was attributed to ice cream produced at a certain factory. Scientists are interested to know whether the mean level of Salmonella in the ice cream is greater than 0.2 MPN/g. A random sample of 20 batches of ice cream was selected and the level of Salmonella measured. The levels (in MPN/g) were:
0.593, 0.142, 0.329, 0.691, 0.231, 0.793, 0.519, 0.392, 0.418, 0.219 0.684, 0.253, 0.439, 0.782, 0.333, 0.894, 0.623, 0.445, 0.521, 0.544
a) (0.5 point) Read the data in R using a vector. Show your codes only but not the output.
b) (0.5 point) State the two hypotheses of interest.
c) (1 point) Is there evidence that the mean level of Salmonella in the icecream is greater than 0.2 MPN/g? Assume a Normal distribution and use α =0.05. Show your codes and result/output from R.
d) (1 point) Interpret your finding in (c).
#Answer
a)
#code
x=c(0.593,0.142,0.329,0.691,0.231,0.793,0.519,0.392,0.418,0.219,0.684,0.253,0.439,0.782,0.333,0.894,0.623,0.445,0.521,0.544)
t.test(x,mu=0.2,alternative="g",conf.level=0.95)
b)
H0:=0.2
ie the mean level of Salmonella in the ice cream is 0.2 MPN/g
Ha:>0.2
ie the mean level of Salmonella in the ice cream is greater than 0.2 MPN/g
c) output from R.
>
x=c(0.593,0.142,0.329,0.691,0.231,0.793,0.519,0.392,0.418,0.219,0.684,0.253,0.439,0.782,0.333,0.894,0.623,0.445,0.521,0.544);x
[1] 0.593 0.142 0.329 0.691 0.231 0.793 0.519 0.392 0.418 0.219
0.684 0.253
[13] 0.439 0.782 0.333 0.894 0.623 0.445 0.521 0.544
> t.test(x,mu=0.2,alternative="g",conf.level=0.95)
One Sample t-test
data: x
t = 6.2196, df = 19, p-value = 2.826e-06
alternative hypothesis: true mean is greater than 0.2
95 percent confidence interval:
0.4110001 Inf
sample estimates:
mean of x
0.49225
d) hence p-value = 2.826e-06 is 0.000002826 is less than α =0.05 hence we reject H0 at 5 % l.o.s and conclude that there there sufficient evidence that the mean level of Salmonella in the ice-cream is greater than 0.2 MPN/g