# these two data sets are from Table 2.4.3 Untreated <- c(.55, .67, .63, .79, .81, .85, .68) Treated <- c(.65, .59, .44, .60, .47, .58, .66, .52, .51) # Wilcoxon test with the normal approximation wilcox.test(Untreated,Treated,exact=FALSE,correct=TRUE) # Wilcoxon test with exact p value wilcox.test(Untreated,Treated,exact=TRUE)