Data for Exercise 6.65
Short
A data frame/tibble with 158 observations on two variables
sample number
parallax measurements (seconds of a degree)
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
hist(Short$parallax, main = "Problem 6.65",
xlab = "", col = "orange")
SIGN.test(Short$parallax, md = 8.798)
#>
#> One-sample Sign-Test
#>
#> data: Short$parallax
#> s = 40, p-value = 3.966e-10
#> alternative hypothesis: true median is not equal to 8.798
#> 95 percent confidence interval:
#> 8.50 8.58
#> sample estimates:
#> median of x
#> 8.55
#>
#> Achieved and Interpolated Confidence Intervals:
#>
#> Conf.Level L.E.pt U.E.pt
#> Lower Achieved CI 0.9331 8.5 8.58
#> Interpolated CI 0.9500 8.5 8.58
#> Upper Achieved CI 0.9536 8.5 8.58
#>
t.test(Short$parallax, mu = 8.798)
#>
#> One Sample t-test
#>
#> data: Short$parallax
#> t = -3.5135, df = 157, p-value = 0.000578
#> alternative hypothesis: true mean is not equal to 8.798
#> 95 percent confidence interval:
#> 8.503618 8.715496
#> sample estimates:
#> mean of x
#> 8.609557
#>