`R/BSDA-package.R`

`Movie.Rd`

Data for Exercise 7.53

`Movie`

A data frame/tibble with 12 observations on three variables

- before
moral aptitude before viewing the movie

- after
moral aptitude after viewing the movie

- differ
a numeric vector

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

```
qqnorm(Movie$differ)
qqline(Movie$differ)
shapiro.test(Movie$differ)
#>
#> Shapiro-Wilk normality test
#>
#> data: Movie$differ
#> W = 0.83643, p-value = 0.02506
#>
t.test(Movie$after, Movie$before, paired = TRUE, conf.level = 0.99)
#>
#> Paired t-test
#>
#> data: Movie$after and Movie$before
#> t = 2, df = 11, p-value = 0.0708
#> alternative hypothesis: true difference in means is not equal to 0
#> 99 percent confidence interval:
#> -0.3686022 1.7019355
#> sample estimates:
#> mean of the differences
#> 0.6666667
#>
wilcox.test(Movie$after, Movie$before, paired = TRUE)
#> Warning: cannot compute exact p-value with ties
#> Warning: cannot compute exact p-value with zeroes
#>
#> Wilcoxon signed rank test with continuity correction
#>
#> data: Movie$after and Movie$before
#> V = 52.5, p-value = 0.07707
#> alternative hypothesis: true location shift is not equal to 0
#>
```