`R/BSDA-package.R`

`Oxytocin.Rd`

Data for Exercise 7.86

`Oxytocin`

A data frame/tibble with 11 observations on three variables

- subject
a numeric vector indicating each subject

- before
mean arterial blood pressure of subject before receiving oxytocin

- after
mean arterial blood pressure of subject after receiving oxytocin

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

```
diff = Oxytocin$after - Oxytocin$before
qqnorm(diff)
qqline(diff)
shapiro.test(diff)
#>
#> Shapiro-Wilk normality test
#>
#> data: diff
#> W = 0.94464, p-value = 0.5765
#>
t.test(Oxytocin$after, Oxytocin$before, paired = TRUE)
#>
#> Paired t-test
#>
#> data: Oxytocin$after and Oxytocin$before
#> t = -8.506, df = 10, p-value = 6.854e-06
#> alternative hypothesis: true difference in means is not equal to 0
#> 95 percent confidence interval:
#> -57.01717 -33.34646
#> sample estimates:
#> mean of the differences
#> -45.18182
#>
rm(diff)
```