**Unformatted text preview: **at level α = 0 . 05. > x<-c(30, 25, 70, 110, 40, 80, 50, 60, 100, 60) > mean(x) [1] 62.5 > z<-(mean(x)-100)/(10/sqrt(10)) > z [1] -11.85854 > qnorm(0.05) [1] -1.644854 Assume the IQ of a dog follows X i ∼ N ( μ, σ 2 ) , where σ is unknown. Test H : μ = 100 vs. H 1 : μ < 100 at level α = 0 . 05. > t=(mean(x)-100)/(sd(x)/sqrt(10)) > t [1] -4.205156 > qt(0.05,9) [1] -1.833113 > t.test(x,mu=100,alternative="less", conf.level=0.95) One Sample t-test data: x t = -4.2036, df = 9, p-value = 0.001147 alternative hypothesis: true mean is less than 100 95 percent confidence interval:-Inf 78.8531 sample estimates: mean of x 62.5 Self-study problems Example 8.6., 8.8., 8.9. Assignment III. Due March 13. 11:00am. 8.24., 8.26, 8.28., 8.36. (a) and (b) only, 8.38....

View
Full Document

- Fall '04
- Chung
- Statistics, Normal Distribution, Statistical hypothesis testing, rejection region