# NOT RUN {
data(Sewage)
# Visualising
with(Sewage,plot(paired(Method_A,Method_B),type="profile"))
# Basic paired t-test
with(Sewage,t.test(paired(Method_A,Method_B)))
# Influence of the 0.1 rounding on the t-test
with(Sewage,t.test(Method_A-Method_B-0.1))
with(Sewage,t.test(Method_A-Method_B+0.1))
# }
Run the code above in your browser using DataLab