Data for Exercise 7.53

Movie

Format

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

References

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

Examples


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
#>