`R/BSDA-package.R`

`Asthmati.Rd`

Data for Exercise 7.52

`Asthmati`

A data frame/tibble with nine observations on three variables

- drug
asthmatic relief index for patients given a drug

- placebo
asthmatic relief index for patients given a placebo

- difference
difference between the

`placebo`

and`drug`

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

```
qqnorm(Asthmati$difference)
qqline(Asthmati$difference)
shapiro.test(Asthmati$difference)
#>
#> Shapiro-Wilk normality test
#>
#> data: Asthmati$difference
#> W = 0.95124, p-value = 0.7037
#>
with(data = Asthmati,
t.test(placebo, drug, paired = TRUE, mu = 0, alternative = "greater")
)
#>
#> Paired t-test
#>
#> data: placebo and drug
#> t = 2.753, df = 8, p-value = 0.01247
#> alternative hypothesis: true difference in means is greater than 0
#> 95 percent confidence interval:
#> 0.6490697 Inf
#> sample estimates:
#> mean of the differences
#> 2
#>
```