p-value for a one sample sign test
p-value for a one sample sign test based on the binomial distribution.
signtest_pvalue(x, alternative = "two.sided", theta0 = 0, ...)
x
: number vector.alternative
: type of alternative hypothesistheta0
: null value of the parameter...
: optional arguments. currently ignored.Returns p-value using the binomial distribution.
a numeric scalar --- the p-value --- is returned
Kloke, J. and McKean, J.W. (2014), Nonparametric statistical methods using R, Boca Raton, FL: Chapman-Hall.
John Kloke, Joseph McKean
x <- round(rt(19,9) + 2,1) signtest_pvalue(x,alternative='greater') S <- sum(x > 0) M <- sum(x != 0) 1-pbinom(S-1,M,0.5) x <- round(rt(19,9) + 0,1) signtest_pvalue(x) S <- sum(x > 0) M <- sum(x != 0) 2*min(pbinom(S,M,0.5), 1-pbinom(S-1,M,0.5))