#Alcoholic Intake Data
al <- read.table("http://www.rohan.sdsu.edu/~babailey/stat672/t4-2.txt", header=T)
library(exactRankTests)
al
attach(al)
#Example 4.2
wilcox.exact(sst, control, alternative="less")
#Problem 5.9
ansari.exact(sst, control)
#p. 156, Comment 13. Unequal and Unknown Medians: modification
controlp <- control-median(control)
sstp <- sst - median(sst, na.rm=T)
ansari.exact(sstp, controlp)