Blood pressure of 15 adult males taken by machine and by an expert

Data for Exercise 7.84

Blood

Format

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

References

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

Examples

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 mean difference is not equal to 0
#> 95 percent confidence interval:
#>  -2.146615  4.146615
#> sample estimates:
#> mean difference 
#>               1 
#>