Data for Exercises 5.83, 5.119, and 7.29
Fish
A data frame/tibble with 1534 observations on two variables
a character variable with values smallmesh
and largemesh
length of the fish measured in centimeters
R. Millar, “Estimating the Size - Selectivity of Fishing Gear by Conditioning on the Total Catch,” Journal of the American Statistical Association, 87 (1992), 962 - 968.
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
tapply(Fish$length, Fish$codend, median, na.rm = TRUE)
#> largemesh smallmesh
#> 34 33
SIGN.test(Fish$length[Fish$codend == "smallmesh"], conf.level = 0.99)
#>
#> One-sample Sign-Test
#>
#> data: Fish$length[Fish$codend == "smallmesh"]
#> s = 739, p-value < 2.2e-16
#> alternative hypothesis: true median is not equal to 0
#> 99 percent confidence interval:
#> 33 34
#> sample estimates:
#> median of x
#> 33
#>
#> Achieved and Interpolated Confidence Intervals:
#>
#> Conf.Level L.E.pt U.E.pt
#> Lower Achieved CI 0.9877 33 34
#> Interpolated CI 0.9900 33 34
#> Upper Achieved CI 0.9900 33 34
#>
if (FALSE) {
dplyr::group_by(Fish, codend) %>%
summarize(MEDIAN = median(length, na.rm = TRUE))
}