Number of sit-ups before and after a physical fitness course
Data for Exercise 7.71
Fitness
A data frame/tibble with 18 observations on the three variables
a character variable indicating subject number
a character variable with values After and Before
a numeric vector recording the number of sit-ups performed in one minute
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
t.test(number ~ test, data = Fitness, alternative = "greater", paired = TRUE) ## Not run: Wide <- tidyr::spread(Fitness, test, number) %>% mutate(diff = After - Before) Wide qqnorm(Wide$diff) qqline(Wide$diff) t.test(Wide$diff, alternative = "greater") ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.