# NOT RUN {
x <- rnorm(25, 100, 5)
YuenTTest(x, mu=99)
# the classic interface
with(sleep, YuenTTest(extra[group == 1], extra[group == 2]))
# the formula interface
YuenTTest(extra ~ group, data = sleep)
# Stahel (2002), pp. 186, 196
d.tyres <- data.frame(A=c(44.5,55,52.5,50.2,45.3,46.1,52.1,50.5,50.6,49.2),
B=c(44.9,54.8,55.6,55.2,55.6,47.7,53,49.1,52.3,50.7))
with(d.tyres, YuenTTest(A, B, paired=TRUE))
d.oxen <- data.frame(ext=c(2.7,2.7,1.1,3.0,1.9,3.0,3.8,3.8,0.3,1.9,1.9),
int=c(6.5,5.4,8.1,3.5,0.5,3.8,6.8,4.9,9.5,6.2,4.1))
with(d.oxen, YuenTTest(int, ext, paired=FALSE))
# }
Run the code above in your browser using DataLab