powered by
Blood
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