powered by
Data for Exercise 7.68
Kinder
A data frame with 8 observations on the following 3 variables.
Pair
a numeric vector
NoKinder
# NOT RUN { str(Kinder) attach(Kinder) DIF <- Kinder - NoKinder qqnorm(DIF) qqline(DIF) shapiro.test(DIF) t.test(Kinder, NoKinder,paired=TRUE,alternative="greater") detach(Kinder) remove(DIF) # }
Run the code above in your browser using DataLab