set.seed(1706)
response <- c(rnorm(7,3,1.5),rnorm(7,5.5,2))
# Comparison of 2 samples
fact <- gl(2,7,labels=LETTERS[1:2])
wilcox.signtest(response~fact)
# Comparison to a given value
theo <- 4
wilcox.signtest(response,mu=theo)
Run the code above in your browser using DataLab