`R/BSDA-package.R`

`Blood.Rd`

Data for Exercise 7.84

`Blood`

A data frame/tibble with 15 observations on the following two variables

- machine
blood pressure recorded from an automated blood pressure machine

- expert
blood pressure recorded by an expert using an at-home device

Kitchens, L. J. (2003) *Basic Statistics and Data Analysis*.
Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.

```
DIFF <- Blood$machine - Blood$expert
shapiro.test(DIFF)
#>
#> Shapiro-Wilk normality test
#>
#> data: DIFF
#> W = 0.92609, p-value = 0.2383
#>
qqnorm(DIFF)
qqline(DIFF)
rm(DIFF)
t.test(Blood$machine, Blood$expert, paired = TRUE)
#>
#> Paired t-test
#>
#> data: Blood$machine and Blood$expert
#> t = 0.68162, df = 14, p-value = 0.5066
#> alternative hypothesis: true difference in means is not equal to 0
#> 95 percent confidence interval:
#> -2.146615 4.146615
#> sample estimates:
#> mean of the differences
#> 1
#>
```