{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

PS11-26 - 4.44(a?chickwts >...

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

View Full Document Right Arrow Icon
4.44 (a) ?chickwts > for (feedlevel in levels(chickwts$feed)) { +     print(feedlevel) +     print(t.test(chickwts$weight[chickwts$feed==feedlevel])$conf.int) + } [1] "casein" [1] 282.6440 364.5226 attr(,"conf.level") [1] 0.95 [1] "horsebean" [1] 132.5687 187.8313 attr(,"conf.level") [1] 0.95 [1] "linseed" [1] 185.561 251.939 attr(,"conf.level") [1] 0.95 [1] "meatmeal" [1] 233.3083 320.5099 attr(,"conf.level") [1] 0.95 [1] "soybean" [1] 215.1754 277.6818 attr(,"conf.level") [1] 0.95 [1] "sunflower" [1] 297.8875 359.9458 attr(,"conf.level") [1] 0.95 (b) There is convincing evidence that some diets are better than others for chick growth. The differences in  the confidence intervals seems indicative that some feeds are better than others. For example, the sunflower diet has a confidence interval of (297, 359), while the horsebean CI is (132,187). However, some of them  have overlapping confidence intervals and the sample size is small.
Background image of page 1

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

View Full Document Right Arrow Icon
(c) xqqmath(~ weight | feed, data = chickwts,
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

Page1 / 4

PS11-26 - 4.44(a?chickwts >...

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

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