# NOT RUN {
DIF <- Cabinets$supplA - Cabinets$supplB
qqnorm(DIF)
qqline(DIF)
shapiro.test(DIF)
with(data = Cabinets,
t.test(supplA, supplB, paired = TRUE)
)
with(data = Cabinets,
wilcox.test(supplA, supplB, paired = TRUE)
)
rm(DIF)
# }
Run the code above in your browser using DataLab