부호 검정(Sign Test)

H0 : mu = 35

H1 : mu > 35

# pbinom() 함수를 이용함
x <- c(25, 16, 44, 82, 36, 58, 18)
S <- sum(x > 35)
p.value <- pbinom(S-1, size = 7, prob = 0.5, lower.tail = FALSE)

# BSDA 패키지의 SIGN.test() 함수를 이용
install.packages("BSDA")
library(BSDA)

BSDA::SIGN.test(x, md = 35, alternative = "greater")

# 결과물
One-sample Sign-Test

data: x
s = 4, p-value = 0.5
alternative hypothesis: true median is greater than 35
95 percent confidence interval:
17.54286 Inf
sample estimates:
median of x 
36

Achieved and Interpolated Confidence Intervals:

Conf.Level L.E.pt U.E.pt
Lower Achieved CI 0.9375 18.0000 Inf
Interpolated CI 0.9500 17.5429 Inf
Upper Achieved CI 0.9922 16.0000 Inf

# 해석

유의확률이 0.5이므로 유의수준 0.05에서 귀무가설을 기각할 수 없다.

[출처] R을 이용한 비모수 통계학, 임동훈 지음, 자유아카데미, p13~20