binom.test(x, n, p=0.5, alternative="two.sided")
x <- rnorm(100) y <- sum(x>0) binom.test(y, 100) # median == 0 ? y <- rnorm(100) d <- x - y binom.test(sum(d>0),length(d)) # sign test
y <- rnorm(100) d <- x - y binom.test(sum(d>0),length(d)) # sign test