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