powered by
Data for Exercise 7.84
Blood
A data frame with 15 observations on the following 2 variables.
Machine
a numeric vector
Expert
# NOT RUN { str(Blood) attach(Blood) DIF <- Machine - Expert qqnorm(DIF) qqline(DIF) shapiro.test(DIF) t.test(Machine,Expert,paired=TRUE) detach(Blood) remove(DIF) # }
Run the code above in your browser using DataLab