powered by
Data for Exercise 7.71
Fitness
A data frame with 9 observations on the following 2 variables.
Before
a numeric vector
After
# NOT RUN { str(Fitness) attach(Fitness) DIF <- After - Before qqnorm(DIF) qqline(DIF) shapiro.test(DIF) t.test(After,Before,paired=TRUE,alternative="greater") detach(Fitness) # }
Run the code above in your browser using DataLab