# NOT RUN {
data(Barley)
# Visualizing a clear outlier
with(Barley,plot(paired(Glabron,Velvet),type="BA"))
# Results form the paired t test and paired Yuen test are similar
with(Barley,t.test(paired(Glabron,Velvet)))
with(Barley,yuen.t.test(paired(Glabron,Velvet)))
# Nevertheless the outlier inflates the location (numerator) and
# scale (denominator) standard statictics for the difference
with(Barley,summary(paired(Glabron,Velvet)))
# }
Run the code above in your browser using DataLab