# data from Table 2.8.1 in the text

before <- c(16.55, 15.36, 15.94, 16.43, 16.01) 


after <- c(16.05, 15.98, 16.10, 15.88, 15.91)


ansari.test(before,after)


rm(before, after)               # remove objects when finished